Copy No. 


Cft- 72375 
55 


Report No. 11 1 1-2 


COMPUTER PROGRAM FOR THE ANALYSIS 
OF ANNULAR COMBUSTORS 

VOLUME II: OPERATING MANUAL 


Prepared for the 

National Aeronautics and Space Administration 
Air Breathing Engine Division 
Lewis Research Center 
Cleveland, Ohio 
(Contract No. NAS3-9402) 



NORTHERN RESEARCH 
219 

Cambridge, 


AND ENGINEERING CORPORATION 
Vassar Street 
Massachusetts 02139 


January 29, 1968 


This work was performed under the direction of Dr. D. M. Dix. 

The initial portion was carried out by M. R. Bewsher, R. G. Croissant, 

P. N. Hoggett, and J. A. Monahan. The final portion, consisting of 
obtaining satisfactory operation of the computer program and revising 
the final report, was carried out by W. L. Brassert and Dr, P. L. Duffield. 

Dr. A. D. Carmichael, Professor A. H. Lefebvre, I. N. Momtchiloff, 
and Professor D. B. Spalding contributed in a consulting capacity. 


TABLE OF CONTENTS 


SUMMARY ..... 1 

INTRODUCTION 2 

Arrangement of Report 2 

PROGRAM DESCRIPTION 3 

Control Subprogram 3 

Diffuser Subprogram 6 

Air-Flow Subprogram 14 

Heat-Transfer Subprogram 20 

Overlay Structure 22 

Numerical Techniques . 23 

INPUT AND OUTPUT 27 

Library Data 27 

Normal Input Data 33 

Sample Input Data 43 

Output Data 43 

Program Messages 43 

REFERENCES 44 

TABLES 45 

FIGURES 55 

APPENDICES 90 

I: SAMPLE LIBRARY-DATA INPUT 91 

Flame Emissivity . . 91 

Diffuser Effectiveness of two Diffuser 

Types 92 

Discharge Coefficient and Initial Jet 

Angle 93 

- i - 

preceding page blank not filmed 



II: SAMPLE INPUT DATA (OVERALL TEST CASE NO. 3) 94 

III: SAMPLE COMPUTER OUTPUT (RESULTS OF OVERALL 97 

TEST CASE NO. 3) 

IV: PROGRAM LISTING HI 

Program CLARE 112 

Subroutine BLOCKDATA 115 

Subroutine REMOV 117 

Subroutine INPUT1 118 

Subroutine INPUT2 124 

Subroutine TAPE 129 

Subroutine GEOM 132 

Subroutine DIFLOW 141 

Subroutine TUBCTS ... 146 

Subroutine TUBSTA 150 

Subroutine TUBSA1 152 

Subroutine TUBFW1 157 

Subroutine TUBE IN 159 

Subroutine TUB AN L 161 

Subroutine NEWRAD ... 164 

Subroutine EMPCTS 168 

Subroutine EMPSTA 171 

Subroutine EMPANL 174 

Subroutine PROFL 175 

Subroutine DOUTPT 176 

Subroutine GASTBL 179 

Subroutine SLOPE 180 

Subroutine MAPI 181 

- ii - 



Subroutine INTPL8 182 

Subroutine AIRFLO ..... 1 85 

Subroutine BIRFLO . 198 

Subroutine D I S JET . 201 

Subroutine PRTEMP 206 

Subroutine EQUAN . 211 

Subroutine EQ.UFT 216 

Subroutine HEATAD 220 

Subroutine JETMiX ... 222 

Subroutine HEAT1 ......... 228 

Subroutine HEAT2 234 

Subroutine TWSOLN 239 

Subroutine EEFT 241 

Subroutine PROP 243 

Subroutine COOL 245 

V: PROGRAM MESSAGES 247 

VI: FORTRAN NOMENCLATURE 259 

VII: LISTING OF LIBRARY DATA 283 



LIST OF TABLES 


Table I 


: Key to Hole-Discharge-Coefflclent 

and Jet-Angle Data 


16 


- i 


V - 



LIST OF FIGURES 


Figure I: Flow Chart for Main Program CLARE 56 

Figure 2: Flow Chart for Subroutine INPUT1 57 

Figure 3: Flow Chart for Subroutine INPUT2 58 

Figure 4: Flow Chart for Subroutine TAPE 59 

Figure 5: Flow Chart for Subroutine GEOH 60 

Figure 6; Overall Flow Chart for Diffuser Subprogram 61 

Figure 7: Flow Chart for Subroutine DIFLOW 62 

Figure 8; Flow Chart for Subroutine TUBCTS 64 

Figure 9: Flow Chart for Subroutine TUBSTA 65 

Figure 10: Flow Chart for Subroutine TUBSAl 66 

Figure 11: Flow Chart for Subroutine TUBFWl 67 

Figure 12: Flow Chart for Subroutine TUBEIN ........... 68 

Figure 13: Flow Chart for Subroutine TUBANL 69 

Figure 14: Flow Chart for Subroutine NEWRAD 70 

Figure 15: Flow Chart for Subroutine EHPCTS 71 

Figure 16: Flowchart for Subroutine EMPSTA ... 72 

Figure 17: Flow Chart for Subroutine EMPANL 73 

Figure 18; Flow Chart for Subroutine PROFL 74 

Figure 19: Overall Flowchart for Air“Flow Subprogram 75 

Figure 20: Flow Chart for Subroutine A1RFL0 76 

Figure 21: Flow Chart for Subroutine DISJET 77 

Figure 22: Flow Chart for Subrout ine # PRTEMP 78 

Figure 23: Flow Chert for Subroutine EQUAN 79 


- v - 



Figure 24} Flow Chart for Subroutine EQUFT 80 

Figure 25: Flow Chart for Subroutine HEATAD 81 

Figure 26: Flow Chart for Subroutine JETMIX 82 

Figure 27: Overall Flow Chart for Heat-Transfer 

Subprogram 83 

Figure 28: Flow Chart for Subroutine HEAT1 84 

Figure 29: Flow Chart for Subroutine HEAT2 85 

Figure 30: Flow Chart for Subroutine TWALL 86 

Figure 31: Flow Chart for Subroutine PROP 87 

Figure 32: Flow Chart for Subroutine COOL 88 

Figure 33: Overlay Structure of the Program 89 


- v? - 



1 


SUMMARY 

This Is the second of two volumes devoted to a computer program 
for predicting the performance of an annular combustor. It Is Intended 
to form a self-contained operating manual allowing the program to be 
operated without reference to Volume 1. 



INTRODUCTION 


In this volume the computer program, which incorporates the 
methods discussed in Volume I, is described and presented. 

Arrangement of Report 

First, there is a brief description of each of the subroutines, 
and the complete set of flow charts is presented. Then the procedures for 
setting up the program input are described, and samples of input data - 
for library data and for the overall test case described in Volume I - are 
shown. The output format is illustrated by the computer printout for the 
same test case. 

The Fortran listing of the program, a compilation of program 
messages, and a guide to the Fortran nomenclature, are presented as appendices. 


A copy of the program can be obtained by anyone 
interested in using it by writing to Mr. Jack S.Grobman, 
NASA-Lewis Research Center, 21000 Brookpark Road, 
Cleveland, Ohio 44135. 
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PROGRAM DESCRIPTION 

This section shows how the calculation methods described in 
Volume I are fitted into the program. 

As explained in Volume I, the program consists of four 
independent subprograms, each of which contains a family of subroutines. 
A brief discussion of the purpose and content of each subroutine is 
given here, together with a set of flow charts. Numerical techniques 
used in the program are also discussed. A complete Fortran listing of 
the program is given in Appendix IV, and the Fortran nomenclature is 
defined in Appendix VI. 

Control Subprogram 

The control subprogram sets up starting values for the whole 
calculation. The action taken depends on the values of the indices 
NCASE and INPUT. NCASE is the number of cases to be considered in the 
run; if NCASE > 1 the control subprogram prepares starting values for 
the second case at the conclusion of the first. INPUT indicates which 
variables are to be altered from one case to the next. 

If NCASE = 0, the input data are read in and written out, 
but none of the main calculations are carried out. 

The main program and subroutines will now be described in 

turn. 


Program CLARE 

This is the main program. It calls subroutines INPUT1 and 
INPUT? and the control subroutines for each of the subprograms. The 
flow chart is shown on Figure 1. 
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Subroutine INPUT! 

In this subroutine, all run data (i.e. data that do not change 
from one case to the next) are read in. Units are converted where 
necessary, subroutine TAPE is called to obtain the data required from 
the library tape, and subroutine GEOM Is caUed to set up geometric 
parameters required later in the program, The data are then written 
out in a convenient format. I N PUT 1 is only called once in each run, 
at the beginning of the first case. 

The flow chart for subroutine INPUT1 is shown on Figure 2. 

Subroutine INPUT2 

This subroutine is called by CLARE at the beginning of each 
case of a run. It reads in the case data (i.e. the data that alter 
from one case of a run to the next) and writes them out. 

The flow chart for Subroutine INPUT2 is shown on Figure 3. 

Subroutine TAPE 

Subroutine TAPE selects from the library tape the data that 
are required for use in the program. The library tape is designated 
KTAPE in the program, and Subroutine TAPE is the only subroutine that 
refers to -it. 

The discharge-coefficient and ini ti al -jet-angle data are 
taken from the library tape as follows. The first set of hole data 
is read into core storage. Then the set of indices denoting hole 
types in the flame tube is searched to see whether hole type "1" is 
required. If so, these data are preserved in core storage; otherwise, 
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the data are overwritten by the set of data for the next hole type on the 
library tape. In this way, a "short list" of data for the hole types 
that are to be used in the combustor is assembled. 

The generalized empirical diffuser data and the flame- 
emissivity data are treated in a similar way. The flow chart is 
given on Figure 4. 


Subroutine GEOM 

This subroutine calculates various geometric quantities, such 
as reference area, total hole areas, and cross-sectional areas, that are 
of interest or required elsewhere in the program. It also fixes the 
axial locations of the calculation points as follows: 

1. One calculation point for each axial position at which 
holes are located. There may be more than one row of 
holes at a given axial position; the calculation point for 
all these hole rows is located at the upstream edge of the 
holes in the first row specified on the input data. 

2. Calculation points at specified intervals downstream of 
all cooling slots (up to a maximum of five per cooling 
slot) . 

3. Calculation points as specified in the input. (These are 
specified as rows of holes with hole type zero). 

4. A calculation point at the very end of the combustor. 

Linear or parabolic interpolation is used to provide the 

values of quantities that are required at each calculation point. (Input 
quantities are provided at each geometric input point or at each hole-row 
centerl i ne) . 
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The flow chart for subroutine GEOM is shown on Figure 5. 
Subroutine BLOCKDATA 

This subroutine consists of a series of data statements 
providing recommended starting values for a number of variables, in* 
eluding "optional" input quantities. 

Diffuser Subprogram 

The diffuser subprogram calculates the flow properties in the 
diffuser from the compressor outlet to the first calculation point in 
each annulus. Subroutine DIFLOW contains the entry points to the diffuser 
subprogram, and organizes the internal calculation procedure. The methods 
of calculation used are: 

1 . The streamtube method 

2. The empirical-data method 

3. The mixing-equation method 

The streamtube method is organized in subroutines TUBCTS, TUBSTA, and 
TUBSA1, and the analysis is carried out in subroutine TUBFW1 , TUBEIN, 
TUBANL, and NEWRAD . The empirical-data method is organized in subroutines 
EMPTCS and EMPSTA, and the analysis is carried out in EMPANL and PROFL. 

The mixing-equation method is contained in subroutine DIFLOW. The diffuser 
subprogram also calls subroutines DOUTPT, GASTBL, SLOPE, I1AP1, and INTPL8. 

An overall flow chart for the diffuser subprogram is shown on 
Figure 6. The function of each subroutine will now be discussed in more 


detai 1 . 



Subroutine DIFLOW 


Subroutine DLFLOW has three main functions: 

1. To organize the calculation procedure used in the diffuse 
subprogram depending on the input variable NDIFF 

2. To calculate the flow properties in the two annuli between 
the snout and the outer casing if the mixing equation is 
being used 

3. To calculate the flow properties beyond Station 2 if 
the diffuser does not have a snout 

Station numbers for the diffuser are defined on pages 14-16 of Volume I. 
The subroutine has three entry points splitting the program into three 
separate parts. The three parts perform the following functions: 

1. The first part organizes the calculation procedure 
between Stations 1 and 2. If the mixing equation is 
to be used between Stations 2 and 4, a corrective 
term for the curvature of the passages is calculated. 

2. Following Entry DIFLW the calculation procedure 
between Stations 2 and 4 is organized. If the diffuser 
does not have a snout, or if the mixing equation is 
being used between Stations 2 and 4, the flow 
properties at Station 4 are calculated. 

3. The third part, following Entry DIFLW2, calculates 
the flow in the diffuser with a given mass-flow split 
using the streamtube method throughout. 

A flow chart for subroutihe DIFLOW is shown on Figure 7. 
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Subroutine TUBCTS 

Subroutine TUBCTS is called by DIFLOW if the streamtube method 
is to be used between Stations 1 and 2. The subroutine: 

1. Calls subroutine TUBEIN to calculate the inlet static 
pressure and the inlet streamtube properties 

2. Calculates the reference velocity, Mach number, and dynamic 
head 

3. Sets up an iteration loop calling TUBANL and NEWRAD to 
calculate the flow properties and the boundary- layer 
characteristics 

4. Calculates the outlet velocity profile and the diffuser 
performance 

5. Calls DOUTPT to print out the diffuser performance, 
and NEWRAD to print out the boundary- layer 
characteristics 

A flow chart for subroutine TUBCTS is shown on Figure 8. 

Subroutine TUBSTA 

Subroutine TUBSTA is called by D I FLOW if the streamtube method 
is to be used between Stations 2 and 3. This subroutine is called before 
the iteration on the mass flow commences, and its function is to set up ■ 
the geometric data in a form that can be used by subroutine TUBSA1 . 

The flow chart for subroutine TUBSTA is shown on Figure 9- 

Subroutine TUBSA1 


Subroutine TUBSAl is called by D I FLOW to perform a streamtube 



calculation between Stations 2 and 4. The subroutine is organized as 
a large DO loop for the two annular passages, with the following steps: 

1. Call subroutine TUBEIN to calculate the streamtube 
properties 

2. Set up an iteration loop calling TUBANL and NEWRAD to 
calculate the flow properties and the boundary- layer 
characteristics 

3. Calculate the flow properties and diffuser performance 
up to Station 3 

4. Calculate flow properties and diffuser performance 
up to Station 4, assuming the flow mixes between 
Stations 3 and 4 

5. Call DOUTPT to print out the diffuser 
performance, and NEWRAD to print out the boundary- 
layer characteristics 

The flow chart for subroutine TUBSA1 is shown on Figure 10. 

Subroutine TUBFW1 

Subroutine D I FLOW calls TUBFW1 during the iteration on the 
mass-flow split if the streamtube method is used between Stations 1 and 
2. For a given flow split at Station 2, TUBFW1 calculates: 

1. The geometric positions of the flow split 

2. The area-mean velocity and weight-mean velocity for the 
flow streams into each annulus and the snout 

The flow chart for subroutine TUBFW1 is shown on Figure 11. 
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Subroutine TUBEIN 

Subroutine TUBEIN is called by TUBCTS and TUBSA1 to calculate 
the input quantities for the streamtube calculation. In TUBEIN the 
following calculations are performed; 

1. If the static pressure is not given (l.e. if TUBEIN is 
called by TUBCTS), calculate the static pressure 

2. Split the flow into a number of streamtubes and 
calculate the total pressure for each streamtube 

3. Calculate the flow area for each streamtube when the 
flow is accelerated isentropical ly to Mach 1 

The flow chart for subroutine TUBEIN is shown on Figure 12. 

♦ 

Subroutine TUBANL 

Subroutine TUBANL is called by TUBCTS and TUBSAl, to 

calculate: 

1. The pressure at each calculation point in the diffuser 

2. The velocity and density of the wall streamtubes at 
each calculation point 

3. The outlet velocity profile 

TUBANL calculates the above properties by performing a one-dimensional 
analysis for each streamtube, and satisfying the continuity equation 
for the section at each calculation point. Its flow chart is shown 
on Figure 13. 


Subroutine NEWRAD 


Subroutine NEWRAD is called by TUBCTS and TUBSAl to perform 
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a boundary-layer calculation for each wall of the diffuser. 

Subroutine NEWRAD also: 

1. Calculates the position of separation, If It occurs 

2. Checks the solution for convergence 

3. Calculates a new guess for the boundary- layer displace* 
ment thickness 

4. Following Entry NEWRI, prints out the boundary- layer 
properties 

The flow chart for subroutine NEWRAD is shown on Figure 14. 
Subroutine EMPCTS 

Subroutine EMPCTS Is called by DIFLOW if the empirical- 
data method is to be used between Stations 1 and 2. The subroutine 
is divided into two parts. The first part: 

1. Calculates the static pressure at inlet 

2. Calculates the reference velocity, Mach number, and 
dynamic head 

3. Calls EMPANL to calculate the diffuser performance 
from empirical data 

4. Calls PROFL to calculate the outlet velocity 
prof 1 le 

5* Calls DO'JTPT to print out the results 
The second part following Entry EMPDT1 is called during the 
iteration on the mass-flow split, to: 

1. Call PROFL to calculate the geometric position of the 
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flow split 

2. Calculate the weight-mean, and area-mean velocities for 
the flow streams into each annulus and the snout 

The flow chart for subroutine EMPCTS Is shown on Figure 15. 

Subroutine EMPSTA 

Subroutine EMPSTA Is called by DIFLOW to calculate the 
diffuser performance between Stations 2 and 3 using empirical data. 

The calculation is performed in the following steps: 

1. Set up a DO loop for the two annular passages 

2. Call EMPANL to calculate the diffuser performance 
between Stations 2 and 3 

3. Call PROFL to calculate the flow properties at 
Station 3 

4. Calculate the flow properties at Station 4 assuming 
the flow mixes "between Stations 3 and 4 

5. Call DOUTPT to print out the diffuser 
performance 

The flow chart for subroutine EMPSTA is shown on Figure 16. 

Subroutine EMPANL 

Subroutine EMPANL is called by subroutines EMPCTS and EMPSTA 
to calculate the diffuser performance from empirical data. EMPANL 
callslNTPL8 to perform Langrangian interpolation from a table of 
data of diffuser effectiveness at various values of area ratio and a 
nondimenslonal length at a fixed value of inlet blockage. A correction 
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is made to allow for variations in inlet blockage. The flow chart for 
subroutine EMPANL is shown on Figure I/. 

Subroutine PROFL 

Subroutine PROFL !-s called by EMPCTS and EMPSTA and it is in 
two parts. The subroutine assumes that the velocity distribution at any 
section is given by a top-hat profile, and the first section calculates 
this velocity. The second section, following Entry PR0FL1, calculates 
for a given flow split: 

1. The geometric positions of the flow split 

2. The area-mean velocity, and weight-mean velocity for the 
flow stream into each annulus and the snout 

The flow chart for subroutine PROFL is shown on Figure 18. 

Subroutine DOUTPT 

OOUTPT Is called by EMPCTS, EMPSTA, D I FLOW, TUBCTS, and TUBSA1 
to print out the diffuser performance for the various diffusing passages. 

Subroutine GASTBL 

Subroutine GASTBL is a general subroutine which calculates: 

1 . The Mach number 

2. The ratio of static temperature to stagnation temperature 

3. The ratio of static pressure to stagnation pressure 

4. The ratio of flow area to flow area for the same mass 
flow expanded isentropical ly to Mach 1 

Either of the last two ratios may be given. It is assumed in this 
subroutine that the flow behaves as a perfect gas with constant 
specific heats; the specific heat ratio, T^is taken to be 1,4. 
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Subroutine SLOPE 

From a tabulated set of variable x against y, subroutine SLOPE 
calculates the gradient dy/dx from the equation: 



Subroutine i 1AP1 

Subroutine MAPI performs parabolic interpolation for a single 
tabulated function. 


Subroutine INTPL8 

Subroutine INTPL8 is used to perform Lagrangian interpolation 
from a two-dimensional table of y tabulated against x and z. INTPL8 also 
calls upon its own subroutines, UNS, LAGRAN, and DISSER. 

Air-Flow Subprogram 

The air-flow subprogram calculates the flow properties in the 
flame tube and annuli from the first calculation point (which corresponds 
to the first hole row on the wall, as distinct from the dome) to the end 
of the combustor. It also organizes the mass-flow-split iteration. 

The overall flow chart for the air-flow subprogram is shown on 
Figure 19- Each subroutine will now be described in turn. 

Subroutine AIRFLO 

This subroutine controls the air-flow calculation. It carries 
out the following operations: 

1. An initial estimate of the mass-flow split is based on the 
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total hole areas !n the dome and on each annulus . 

2. Subroutine DIFLOW is called to obtain initial conditions 
on the dome and at the start of each annulus . 

3. From the discharge characteristics of the holes in the 
dome, the primary-zone pressure is obtained. 

4. The annulus equations are solved (Subroutine EQ.UAN) at 
each calculation point along the inner annulus to the 
secondary holes; then along the outer annulus to the 
secondary holes . 

5. Subroutine PRTEMP is called to obtain the primary-zone 
temperature and initial conditions for the flame-tube 
calcu lat i ons . 

6. At each calculation point from the secondary holes to the 
end of the combustor; 

a. The annulus equations are solved for the 
inner annulus. 

b. The annulus equations are solved for the 
outer annulus. 

c. The flame-tube equations are solved (Sub- 
routine EQUFT). 

7. If the air mass flows remaining in the annuli are 

of opposite sign, the initial mass-flow split between 
the two annuli is adjusted and Steps 2 to 6 are repeated. 

8. If the air mass flows remaining in the annuli are not 
approximately zero, the initial mass-flow split between 
dome holes and annuli is adjusted and Steps 2 to 7 are 
repeated . 
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The flow chart for Subroutine AIRFLO is shown on Figure 20. To 
avoid overflowing the computer memory, this subroutine has been divided into 
two sections (AIRFLO and BIRFLO) as noted on tho flow chart. 

Subroutine D1SJET 

Subroutine DISJET determines jet discharge parameters: 

1. Jet information to be used by Subroutine JETMIX: 

a. Initial jet-air mass flow rate 

b. Jet angle of discharge 

c. Jet discharge coefficient 

2. Jet information to be used by Subroutines EQ.UAN and EQUFT: 

a. Initial jet-air mass flow rate 

b. Initial jet momentum 

c. Initial axial jet momentum 

d. Initial jet enthalpy 

This subroutine uses discharge-coefficient and jet-angle data 
that have been selected from the library tape and set up in COMMON by 
Subrout i ne TAPE . 

Another function performed by this subroutine is to sense when 
unrealistic conditions are occurring in the combustor (due to an incorrect 
mass-flow-split estimate), and to set the residual annulus flows so as to 
ensure that the next estimate of mass-flow split is adjusted in the right 
direction. This is done in the following way: 

1. When the flame-tube static pressure is higher than the 
annulus static pressure (or, in the case of scoops, the 
annulus total pressure), the annulus equations are not 
solved in the normal way. Instead, increments of mass 
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flow proportional to the local hole area are added to the 
annulus flow at all subsequent calculation points down to the 
end of the combustor. The positive mass flow at the end of 
the annulus ensures that in subsequent flow-split estimates 
the flow through the dome will be increased and the flame- 
tube pressure lowered. 

2. When the pressure drop from annulus to flame tube is such 

that the required flow through the hole exceeds that available 
in the annulus, the annulus equations are not solved in the 
normal way. Instead, increments of mass flow proportional to 
the local hole area are subtracted from the annulus flow at 
all subsequent calculation points down to the end of the 
combustor. The negative mass flow at the end of the annulus 
ensures that in subsequent flow-split estimates the flow 
through the dome will be decreased and the flame-tube pressure 
increased . 

An overall flow chart for Subroutine DISJET is shown on Figure 21. 

Subroutine PRTEMP 

This subroutine calculates conditions within the primary zone by 
solution of a simplified form of the flame-tube equations, assuming the 
primary zone acts as a stirred reactor. Flame-tube conditions are thus 
set up for the secondary-hole calculation point, so that from then on the 
flame-tube equations can be solved in the normal way. 

This subroutine also calculates the fraction of air entering the 
secondary holes which recirculates upstream, if this fraction is not 
specified as input . 
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The flow chart is shown on Figure 22. 

Subroutine EOUAN 

This subroutine solves the equations for flow in the annuli. 

The main equation is a quadratic in u . The rest of the subroutine is 

an | l 

concerned with evaluating the constants in this equation. The following 
effects are Included: 

1. A total-pressure loss due to expansion of the annulus air 
as it passes across the hole 

2. The loss of air bled from the annulus for cooling 
purposes 

3. The loss of air due to transpiration cooling, as well as 
air passing through penetration holes and cooling slots 

The flow chart for subroutine EQ.UAN is shown on Figure 23. 


Subroutine EQUFT 

This subroutine solves the equations for flow in the flame 
tube downstream of the primary zone. As explained in Volume I, the 
solution follows an iterative procedure. For convenience, this procedure 
is summarized again here. Calculations are performed for a control volume 
bounded by two adjacent calculation stations (defined as Station 1 and 2 
for this discussion). 

1. Initial values are assumed for u,,. c and q based on 

t* t y 2 p2 

conditions at the upstream station (Station 1), 

2. The energy equation is solved for T^ t 

3. Using this estimate of T^ ^ improved estimates of c ^ 
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and q are obtained. 

4. Steps 2 and 3 are repeated until the change in T^ ^ between 
successive cycles is smaller than FIENTH (which is supplied 
as data) . 

5. The momentum, continuity, and state equations are solved 
for an improved estimate of u^ ^ * 

6. Steps 2 to 5 are repeated until the changes in u^ ^ an( l 
T^ t g between successive u^ t 2 “cycles are smaller than 
u ft 2 . F I PH I and FIENTH respectively. 

The flow chart for subroutine EQUFT is shown on Figure 24. 

Subroutine HEATAD 

This subroutine provides EQUFT with the heat-add i tion term in 
the energy equation. It makes use of: 

1. The fuel-burning rate, supplied as input to the program. 

2. The effective fuel calorific value, including a correction 
for dissociation* 

3. Correlations for the specific heat of air and of a mixture 
of stoichiometric combustion products. 

The flow chart is shown on Figure 25* 


Subroutine JETMIX 

This subroutine provides EQUFT with the characteristics of the' 


residual jets (entering the flame tube through holes upstream of the 
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point under consideration). Mixing is calculated using one of three 
models, according to the value of the index NEF: 

1 . Mass- loss model 

2. Equivalent-entrainment model 

3. Prof i le~subst i tut ion mode 1 

4. Instantaneous-mixing model 

Wall jets and penetration jets are calculated separately using the same 
model but different values of the mixing constant. In each case, the 
calculation proceeds stepwise along the jet from the hole to the axial 
position of the current calculation point. 

The flow chart for this subroutine is shown on Figure 26 

Heat -Transfer Subprogram 

An overall flow chart for the heat-transfer subprogram is 
shown on Figure 27. 


Subroutine HEAT1 

This subroutine carries out a noniterative heat -transfer 
calculation. The route through the subroutine is controlled by the index 
NHT1, which takes the following values: 

1 for one-dimensional radiation, uncooled wall 

2 for one-dimensional radiation, cooled wall 

3 for two-dimensional radiation, uncooled wall 

4 for two-dimensional radiation, cooled wall 

The coefficients in the heat-balance equation are evaluated, 
using subroutines EEFT, COOL, and PROP, and the results are put in a 
form suitable for output. 
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The flow chart for this subroutine I; shown on Figure 28. 

Subroutine HEAT2 

This subroutine carries out an iterative heat-transfer 
calculation. The route through the subroutine is controlled by the 
index NHT2, which takes the following values: 

2 for longitudinal wall conduction 

3 for radiation interchange between walls 

4 for longitudinal conduction and radiation interchange 

1 if none of these options required 

The subroutine also writes out the results for the heat- 
transfer subprogram (whether the calculation is iterative or noniterative). 
The flow chart is shown on Figure 29. 


Subroutine TWALL 

This subroutine uses Newton 1 s approximation to solve the heat- 
balance equation, which is of the following form: 

D. T 4 + D. T 2 ' 5 + 0, T » 0. 

1 w 2 w 3 w 4 

The flow chart is shown on Figure 30. 


Subroutine EEFT 

This subroutine calculates the emissivity of the flame in one 
of six ways, according to the value of the index NLUM: 

1 Non-luminous correlation for distillate fuels 

2 Non-luminous correlation for residual fuels 

3 Lefebvre correlation for luminous flames 
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4 NREC 1964 correlation for luminous flames 

5 NREC 1966 correlation for luminous flames 

6 Interpolation from a table of experimental data 

Subroutine PROP 

This subroutine obtains average values for the specific heat, 
thermal conductivity, and the dynamic viscosity of a gas mixture con- 
taining oxygen, nitrogen, carbon dioxide, and water vapor. The flow 
chart for this subroutine is shown on Figure 31. 

Subroutine COOL 

This subroutine calculates wall cooling parameters according 
to the value of the index NCOOL: 

1 Film cool ing 

2 Transpiration cooling 

The flow chart for this subroutine is shown on Figure 32. 
Overlay Structure 

In order to fit the whole program into the storage space 
available on the 7094, the program has been split into several links, 
which overwrite each other as the calculation proceeds. The sketch 
on the next page shows the overall arrangement, and the correct 
position for each subroutine is shown on Figure 33. 
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Main Program 
Control Programs 
for Diffuser and 
Air Flow 


Diffuser Input and 

Output Subprogram Geometric 

I Subprograms 


I i i ; 

Subroutines Subroutines Air** Flow Heat-Transfer 

for Streamtube for Empirical Subprograms Subprograms 

Diffuser Diffuser 

tabulations Calculations 


Numerical Techniques 

4 

The numerical techniques used in this program are quite simple* 
and need not be described in great detail. Most of them have been 
covered adequately in Volume I; only the iteration scheme on the overall 
mass-flow split will be discussed here. 


Normal Iteration Procedure 

As mentioned in Volume I, the iteration proceeds in two 


stages : 


If the annulus flows at the end of the combustor, AFSTA and 
AFSTB, are of opposite sign, the mass flow through the dome 
is held constant and the ratio of the flows entering the 
two annuli is adjusted. The following ratio is used: 


AFC 


AFA 

AFA '+ AFB 


( 2 ) 


where AFA = flow entering inner annulus 
AFB = flow entering outer annulus 
A running check is kept on AFCL, the highest value of AFC for 
which AFSTA is negative and AFSTB is positive, and AFCU, the 
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lowest value of AFC for which AFSTA Is positive and AFSTB is 
negative. At each step, the new value of AFC is taken to be 
(AFCL + AFCU)/2. At the start, values of AFCL and AFCU well 
outside the realistic range are chosen and the step size is 
limited to 1 per cent of AFC. In using this procedure it is 
assumed that the AFC corresponding to the converged solution 
will not lead to residual annulus flows of opposite sign at 
other values of AFS, the flow through the dome. 

2. If AFSTA and AFSTB are of the same sign, AFS is adjusted 
in the following way. A running check is kept on AFSL, 
the highest value of AFS for which the residual flows are 
positive, and AFSU, the lowest value of AFS for which the 
residual flows are negative. At each step, the new value 
of AFS is taken to be (AFSL + AF$U)/2 and the change in 
AFS Is split equally between AFA and AFB. At the start, 
values of AFSL and AFSU well outside the realistic range 
are chosen and the maximum step size is limited to 30 per 
cent of AFS. 

Starting values of AFCL, AFCU, AFSL, and AFSU may be assigned as 
input; by judicious choice of these values the number of flow-split iterations 
may be substantially reduced. Likewise, starting values of AFS, AFA, and AFB 
may be assigned by supplying the input quantities DAFA and OAFB (fractions of 
total flow passing through inner and outer annuli, respectively). If no 

input values are supplied, starting values are assigned in Subroutines 
GEOM and INPUT2 on the basis of the total hole areas in the dome and the 


flame- tube walls 



Characteristics of the Method 

In a well-designed combustor (that Is, one in which there Is 
no flow out of the flame tube at the converged solution), the number of 
cycles to convergence depends on the accuracy required and the number of 
hole rows. To reduce AFSTA and AFSTB to 1 per cent of AF2 (the total 
mass flow) typically requires about 18 cycles. The number of cycles In- 
creases with the number of hole rows because the effect of small changes 
in upstream pressure builds up cumulatively down the combustor. 

If the limit on the number of cycles permitted (LOAN I L) is set 
too low, the program will print out an error message, "increase LCANIL" 
when convergence falls to occur. However, there is no point in In- 
creasing LCANIL beyond about 50 because by that time the limit of accuracy 
of the machine has been reached - effectively: 

AFSL -= AFS » AFSU 

and/or 

AFCL = AFC «= AFCU 

If there is no convergence at 50 cycles and pressure reversal 
across the flame tube is still occurring, the program will print out an 
error message "Combustor poorly designed". This case will now be dis- 
cussed more fully. 

The relationship between the pressure at any point in the 
flame tube and the mass flow through the dome is of the form shown in 


the sketch. 
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Dome Mass Flow, ifi^ 

V 

By contrast, the. pressures in the annuli are relatively unaffected by 
changes In the dome mass flow. 

At low dome mass flows there will be a region (marked A in the 
sketch) in which pressure reversal across flame tube holes occurs. At 
high flows (B) the flame-tube pressure will be lowered, the * w 'le pressure 
drop will be so high that more air will be called for than there is in 
the annulus, and the residual annulus flow will be negative. . 

Between A and B there will be a region C in which the residual 
flow is positive but no pressure reversal occurs. 

(n a badly designed combustor, region A may include the 
convergence point; there will then be no region C and the program will 
attempt to converge on the interface between A and B. Convergence will 
not be detected since the residual flows will not be near zero. 

Decreasing the dome hole area will increase the flow re- 
sistance through the dome and may rectify the pressure reversal. 
Alternatively, the hole distribution along the flame-tube wall may be 
adjusted; the critical holes can easily be recognized since their dis- 
charge coefficients are zero when pressure reversal is just about to occur. 
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INPUT AND OUTPUT 

This section contains the procedure for preparing the input 
data for program CLARE and a description 'of the types of output. Input 
and output sheets for the sample case discussed in Volume I of this 
report are shown. 

Data required by the program are fed in via two input tapes, 
designated I TAPE and KTAPE . I TAPE refers to the normal input tape. 

KTAPE contains the library data which will only occasionally be altered 
between one run and th@ next; a deck of library data is supplied with 
the program. 

Library Data 

The library data consist of: 

1. Hole-discharge-coefficient and jet-angle information. The 
data provided cover 100 different hole types, including all 
those mentioned in Reference 1 ; any number of additional 
hole types may be added. A key to these hole types is 
given in Table 1 . 

2. Diffuser-performance data for all straight-walled-annular 
and two-dimensional diffuser types shown in Figures 9 and 
23 of Volume I. Space is available for further data (such 
as curv<fd-wal l-di f fuser data) to be added as they become 
avai lable, 

3. Flame-emissivity data for particular combustor configura- 
tions. Initially, no data are provided for this table, but 
the option is available for inserting a set of values of 
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emissivity at various pressures and temperatures and 
using an emissivity obtained from tins table in the heat- 
transfer calculation. > 


The method used to prepare the data- input sheet for this group 
is described below. 


Line Location I nput Type of Fortran Description 

I tern N urn be r* Name 

1 NMXTYP Number of hole types for 

which discharge-coefficient 
data are to be given. 

There is no limit on this 
quantity. 

I NHTYP Identification number indi- 

cating hole type. These 
numbers should run from 1 
through NMXTYP. A key to 
the hole type numbers is 
given in Table 1 . 

R DXH Hole radius or distance 

from hole center- line to 
upstream edge, inches. 

For continuous cooling slots, 
this quantity should be zero. 

R HAA Hole area, square inches. 

For continuous cooling slots 
this is the face area per 
inch width, i.e. the slot 
height, inches. 

2 31-35 I NSCOOQ Index. 1 in tens position 

indicates that no initial- 
jet-angle data are available. 

0 in units position indicates 
that the discharge coefficient 
is based on flush hole area, 1 in- 
dicates that it is based on hole face 
area, and 2 indicates that the hole 
type is a continuous cooling scoop. 

R refers to real numbers. These should be written with decimal points; 
they may appear anywhere within their allotted fields.. I refers to 
integers. These are written without decimal points on the right side 
of their fields. 


1 1-10 


2 1-10 


2 11-20 


2 21-30 
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line 

Location 

Inout 
1 tem 

Tvoe of 
Number 

Fortran 

Name 

Description 

2 

36-40 

, AP h 

M an 

1 

NSPA 

Number of values of pressure- 
loss factor at which dis- 
charge coefficient is to be 
given (maximum value 15). 

2 

41-50 

R 

DPHSA 

First value of pressure- loss 
factor 

2 

51-60 

C d 

R 

CDSA 

First value of corrected 
discharge coefficient. 

2 

61-70 

l 

, AP h 
+ ~ 
M an 

R 

GXISA 

First value of initial jet 
angle 

3 

11-20 

R 

DPHSA 

Second value of pressure-loss 
factor 

3 

21-30 

c d 

R 

CDSA 

Second value of corrected 
discharge coefficient 

3 

31-40 

i 

, 

+ q~ 

N an 

R 

GXISA 

Second value of initial jet 
angle 

3 

41-50 

R 

DPHSA 

Third value of pressure- loss 
factor 

3 

51-60 

c d 

R 

CDSA 

Third value of corrected 
discharge coefficient 

3 

61-70 

i 

R 

GXISA 

Third value of initial jet 
angle 

The remaining values of 
APh 


1 + q^-, C d> and | are listed 


on subsequent lines in the 
same format as Line 3 until 
all NSPA of the sets of values 
for this hole type have been 
given. The last set is on 
line N . 

Lines 2 through N are repeated 
until all NMXTYP hole types 
have been covered. The last 
values are on line N^. 
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Line 

Location 

1 nput 
1 tern 

Type of 
Number 

Fortran 

Name 

Description 

V 

72 


1 

INDEX 

The program expects to find 
a 1 here, indicating that 
the correct number of hole- 
data cards have been read. 

V 2 

1-10 


1 

NWALMX 

Number of diffuser types 
for which performance data 
are to be given. There is 
no limit on this quantityj 

V 3 

1-10 


1 

NCARD ( 1 ) 

Number of lines used for 
data for first diffuser type. 


11-20 


1 

NCARD (2) 

Number of lines used for 
'data for second diffuser type 


N d +1 1-10 

D 

Ng+I 11-20 

Ng+1 21-30 

Ng+1 31-40 

Ng+1 41-50 


I 


I 


I 


♦* 

The remaining values of NCARD 
are entered on this line (and, 
if necessary, subsequent lines up 
to Nb) in the usual 7-column 
integer format until all NWALMX 
values are 1 isted. 

The following lines Ng+1 through 
Nq relate to the first diffuser 
type. 

NWALL Identification number 

indicating diffuser type. 

These numbers should run 
from 1 through NWALMX. 

NXDIFD Number of values of ARDTA 

(area ratio A 2 /A 1 ) that are to be 
given (maximum value 200). 


NYDIFA Number of values of EFDTm (diffuser 
effectiveness) that are to be given 
(maximum value 200). 

NZDiFA Number of values of XLNDTA 

(nondimensional length) that are to 
be given (maximum value 20). 

NCDIFA Index. Sign indicates the 
form in which the data are 
tabulated: positive sign 


! |f NWALMX S 10, 


the dimension of 


NCARD should be increased. 
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Line Locat 1 oh input Type of Fortran Description 

I tem Number Name 

indicates that NXDIFD ~ 

NYD I FA/NZDI FA; negative 
sign indicates that NXDIFD « 
NYDIFA. Hundreds position 
should always contain 1. 

Number in tens position 
indicates degree of Langrangian 
interpolation in X direction 
that i s to be used with these 
data. Number in units position 
indicates degree of inter- 
polation in Z direction. 


V' 

51-60 

*1 

R 

E1DTAA 

Value of (1-inlet blockage) at 
which this set of data was 
taken. 

V 2 

1-10 

l 

R 

EFDTA(I) 

First value of diffuser 
effectiveness. 

Ng+2 

11-20 

1 

R 

EFDTA (2) 

Second value of diffuser 
effectiveness. 


The remaining values of 
diffuser effectiveness are 
entered on this and subsequent 
lines in the usual 7~co1umn 
real format. The first set of 
values of EFDTA are for the 
first value of XLNDTA, the 
next set of values of EFDTA 
are for the second value of 
XLNDTA, and so on. 

Immediately following (not 
necessarily on a new card), 
the NXDIFD values of area 
ratio, ARDTA are listed, then the 
NZDIFA values of nondimensional 
length, XLNDTA. The last value is on 
line N c = N B + NCARD(l). 

Data for the second diffuser 
type (NWALL * 1) are presented 
i n the same way as for type 1 , 
on line N r +l through line N r + 

NCARD(2) , 1 
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Line Location Input Type of Fortran Description 

I tern Number ' Name 

Data for the remaining 
diffuser types are entered in 
the same way. The last data 
for diffuser type NWALMX are 
on 1 ! ne Np . 

I INDEX The program expects to find a 

1 here, indicating that the 
correct number of diffuser- 
data cards have been read. 

Number of points at which 
flame temperature is to be 
specified in table of empirical 
f lame-emissivity data. 

Np+2 11-20 I NEFT Number of points at which 

emissivity is to be given in 
table of empirical flame- 
emissivity data. Normally 
NEFT « NTFT x NPFT. 


Np+2 1-10 I NTFT 


Np+I 72 


Np+2 21-30 1 NPFT Number of points at which 

pressure is to be given in 
table of empirical f lame- 
emissivity data. 

Np+2 31*^0 I NFORM Index. This refers to the way 

in which data are presented and 
interpolated; rules for assigning 
values to it were given above in 
connection with NCDIFA. It 
normally takes the value 133 • 


Np+3 1-10 


R TABTFT(I) First value of flame temperature 
(deg F) in table of empirical 
f lame-emissivity data. 


Subsequent values of flame tem- 
perature are entered in the 
usual 7-column format, immediately 
followed by values of pressure, 

TABPFT (1bf/ft z ) and emissivity, 
TABEPT. The last value is on line N^ 

N.+1 72 I INDEX The program expects to find a 1 

here, indicating that the correct 
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Line Location Input Type of Fortran 

Item Number Name Description 

number of emisslvlty-data 
cards have been read. 

This completes the library data. 

Normal Input Data 

The procedure used for setting up the normal input data is 
described below. There are a number of quantities that the user will 
only occasionally wish to specify; these are treated in the following 
way. Recommended values ape automatically supplied to the program via 
a BLOCK DATA subroutine; any quantities that the user wishes to vary 
are then overwritten via the READ statement. In the list below, the word 
"optional 1 ’ is given with these quantities, and the recommended values 
are shown in parentheses. 


Run identification 

Line I of the normal input data contains a run identification 
message in columns 1*72. This message is later written out at the head 
of the output sheet. 

Fixed Data ■ Integer 

The first group of data is fed in via the namelist FIXEDI , 
using the normal format'. The variables in FIXEDI are as follows: 

Name Description 

NCASE No. of cases to be considered, if zero, major sub* 

routines are not entered. Optional (0). 


$FIXEDI beginning In column 2 of the first card, followed by the names 
of the variables and their input values in pairs, separated by commas, 
on this card and columns 2 to 80 of succeeding cards. The end of the 
list is marked by a $. 
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Name Description 

NRECT Index. I for annular combustors, 2 for combustors 

of rectangular cross-section. Optional (I). 

NG No. of geometric input points. Maximum value 120. 

NH No. of hole rows. Maximum value 50. 

NWH No. of first hole row on the flame-tube wall (as 

distinct from the dome). 

NSH No. of hole row that marks the end of the primary zone. 

If there are hole rows on both annuli at this location, 
NSH must equal the hole row number on the inner annulus. 


NSNOUT 

NWALLl 

NWALL2 

iNPUT 

K4 

K6 


NC00L 

NUMCW 

N BLADE 
I PRINT 


Index. I if there is a snout. 0 otherwise. 

/ 

Indices designating empirical diffuser data to be used 
in sections i-2 and 2-4 respectively. Optional (l for 
annular combustors, 2 for two-dimensional). 

Index. 0 if input flow conditions varied between 
cases. 1 if program routing varied. Optional (0). 

Index, i if flow split at secondary holes is specified. 
Otherwise 0. Optional (0). 

Index. 0 for no swirler 

1 for specified swirler 

2 for unspecified swirler 
Optional (0) . 

Index. 1 for film cooling 

2 for transpiration cooling 
Optional (1) . 

Number of swirlers. Optional (0). NUMSW must be supplied 
if K6 = 1 or 2. 

Number of swirler blades. Optional (8) 

Index. 1 if intermediate results are to be printed! 

0 otherwise. 

Optional (0). 


Combustor Geometry 

The next set of cards contains the combustor geometry. The first 
and last cards define the beginning and end of the combustor. There should 


1 


This option is only available if output 


is on tape unit 6. 
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be NG cards in this group, each containing the following: 


Location 

Type of 
Number 

Fortran 

Name 

Description 

1-10 

R 

XiNCH 

Axial location, measured from compressor 
discharge, Inches. The XINCH values 
should Increase monoton leal ly; no two 
should be equal. It is advisable to 
specify the geometry at points a small 
distance downstream of each stepped cool- 
ing slot. 

11-20 

R 

CA 

Inner casing diameter, inches. 

21-30 

R 

SA 

Inner snout diameter, inches. This 
field should be left blank if there is 
no snout at this location. 

31-40 

R 

FTA 

Inner flame- tube diameter! inches. If 
XINCH coincides with the location of a 
cooling slot, the larger of the two 
FTA values should be given. 

41-50 

R 

FTB 

Outer flame- tube diameter! inches. If 
there is a cooling slot at this point, 
the smaller of the two FTB values 
should be given. 

51-60 

R 

SB 

Outer snout diameter! inches. If 
there is no snout at this location, 
the field should be left blank. 

61-70 

R 

CB 

Outer casing diameter! inches. 


The diffuser section should not occupy more than 50 geometric 


input points, and at least one geometric input point should lie upstream 
of the snout lip. 


Hoie and Miscellaneous Data 

The next set of cards contains the hole data and fuel -burning- 

rate distribution. The casing temperature may also be specified on these 

cards. There should be NH cards in this group, each containing the following: 

Location Type of Fortran Description 

Number Name 

1-10 R XH Axial location of hole-row center- 


^lf the combustor is of rectangular cross section, "diameter" is replaced 
by "dimension from arbitrary datum". 
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Loca t i on 


11-20 

21-30 

31-40 

41-50 

51-55 

56-60 

61-65 


Type of Fortran 
Number Name 


R HAB 


R TCATA 


Description 


line, inches. These values should lie 
between the first value of XINCH for 
which flame tube coordinates ere given, 
and the last value of XINCH. Values 
of XH should generally increase, but 
there may be up to six rows of holes 
(i.e. six cards) corresponding to a 
single value of XH. For splash-ring 
cooling slots, the location specified 
should be that of the slot exit. 

Hole area, square inches, in the case 
of continuous cooling slots, this is 
the height of the slot in inches. 

This field may be left blank if the 
hole area is the same as that used in 
the experiments on which the hole data 
are based (see Table I). 

Inner casing temperature, deg F. 


R TCATB 


R' FF8 


I NAB 


I NHH 

I NHTU 


Outer casing temperature, deg F. 

These fields should be left blank 
if the casing temperature is not 
specified. To specify the casing 
temperature, It is only necessary to 
give a value on the first of each 
group of cards corresponding to a 
distinct value of XH. 

Fraction of fuel burned up to this 
hole row. These values should In- 
crease from 0 to 1; it is only neces- 
sary to give a value on the first of 
each group of cards corresponding to 
a distinct XH. 

Index indicating whether the hole row 
is on the inner or the outer wall. 

1 for Inner wall . 

2 for outer wall. 

Number of holes in this row. For 
continuous cooling slots this quantity 
should be made equal to 1. 

Index designating hole type. (Used 
to locate discharge-coefficient and 
jet-angle data on library tape). A 
zero indicates that calculations are 
to be performed at this point, al- 
though there are no holes. If NHTU ** 0 , 
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Location Type of 
Number 


Fortran 

Name 


the following columns may be left 
blank: HAB, NAB, NHH. It is not 

permissible to set NHTU ** 0 for the 
first hole row. 

Fixed Data - Real 


The next group of data is fed In via the namelist FIXEDR. The 
variables are as follows: 


Name 

XINT 

THIKFT 

FLCV 

FHCR 

SHAFST 

AF23A 

AF23B 

XAF23A 

XAF23B 

BETA 

DSWLOU 


Description 

Interval downstream of cooling slot at which 
wall temperatures required, inches. Optional 
( 100 ). 

Flame-tube wall thickness, inches. Optional 
(a very smal 1 value) . 

Fuel lower heating value, Btu per Ibm. 

Optional (18540) 

Fuel hydrogen-carbon ratio. Optional (0.17). 

Fraction of secondary air recirculating up- 
stream. Optional (0.5). 

Fraction of inlet air bled from inner annulus. 
Optional (0). Up to three values may be pro- 
vided, using the format shown in the example: 
AF23A * 0.02, 0.05, 0.03. 

Fraction of inlet air bled from outer annulus. 
Optional (0). Up t" ♦bree values may be pro- 
vided. 

Axial location, inches, at which bleed air is 
removed from inner annulus. Optional (0) . One 
value should be provided for each value of 
AF23A; it is not possible to bleed air from 
the diffuser. 

Axial location, inches, at which bleed air is 
removed from outer annulus. Optional (0). 

Swirter blade angle, degrees. Optional (50). 

Outer diameter of swirler, inches. 
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Name 

DSWLIN 

ABSW 

EMW 

EMC 

CONDFT 

XFILMZ 

DQMLOS 

PERCO 

WIDTH! 

variables 

Name 

NXDIF 

NXDIF1, 


Description 

Inner diameter of swirler, inches. DSWLOU and 
DSWLIN must be supplied if K6 « 1. 

Absorptivity of flame-tube wall. Optional (0.85) 

Emissivity of wall . Optional (0.85). 

Emissivity of casing. Optional (0.8). 

Conductivity of flame-tube wall material, Btu per 
ft hr deg F. Optional (15.0). 

Constant in film-cooling correlation (X 0 in 
Equation 3-22 of Volume I). Optional (3-5). 

Number of velocity-heads of pressure lost inside the 
snout. Optional (0). 

Permeability coefficient of porous wall, sq ft. 
Optional (0) . 

Width, inches, of rectangular-cross-section 
combustor. Optional (12). 


Limits and Tolerances 


The next group of data is fed in via the namelist LIMITS. The 
are as follows: 


Description 

No. of geometric input point corresponding to 
station "2" (just upstream of snout) in diffuser 
analysis. Optional (if this value is not specified, 
NXDIF will be taken as the last geometric input 
point before the snout). 

NXDIF2 Nos. of geometric input points corresponding to 

Station 3 in inner and outer annulus respectively. 
These values must be specified if NDIFF =11, 12, 
or 22. The annulus areas at Stations 3 and 4 
(upstream edge of hole row NWH) must be equal. 

Loop counter limit in the mass-flow-split interation. 
Optional (50). 


LCANIL 
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Name Description 

STEP Step size in jet-mixing calculation, inches. 

Optional (0.25). 

This completes the data that are unchanged from case to case 
within a run. 


Case Data 

The set of cards required for the first case is described 
below. These continue straight on from the library-data cards, the 


last of which is on line L^, 


Line 

Location 

Type of 
Number 

Fortran 

Name 

Description 

V 

1-10 

R 

STAGT 

Total temperature at compressor 
discharge, deg F. 

l a +1 

1 1-20 

R 

STPREF 

Weight-mean total pressure at com- 
pressor diaiharge, lbf per sq in 

V 

21-30 

R 

AF2 

Air mass flow rate at compressor 
discharge*, Ibm per sec. 

V 

31-40 

R 

FAR 

Overall fuel*§ir ratio based on air- 
flow rate at compressor discharge. 

l a +i 

41-50 

R 

AB|,0@K 

Fraction of f ft let boundary- layer 
% lockage tfttt If on inner wall. 

V 

51-60 

R 


initial boundary- layer shape factor 
inner wall. Optional (1.4)'. 

V 

61-70 

R 


Initial shape factor on outer wall. 

fijstiofiai (1.4)1, 

l a« 

1-10 

R 

BLOCKvfl ) 

Boundary- layer blockage at inlet. 


First estimates of the blockage at 
downstream geometric input points 
are given in the usual format (7 
columns of 10) on this and sub- 
sequent lines. There should be 
NXDIf such values, including the first. 
The last valuo is on line Lg. 


'a method of calculating the initial shape factor more accurately is 
given od >age 134 of Volume 1. 
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Line Location Type of Fortran Description 

Number Name 

Lg+ 1 1-10 R DAFA Estimated fraction of total flow 

4 passing through inner annulus. 

Lg+ 1 11-20 R DAFB Estimated fraction of total flow 

passing through outer annulus. 1 

Lg+ 1 21-30 R AFCL Lower bound on the ratio of the 

flow through the inner annulus to 
the flow through both annuli. 

Lg+ 1 31-40 R AFCU Upper bound on the ratio of the 

° flow through the inner annulus to 

the flow through both annuli. 

Lg+ I 41-50 R AFSL Lower bound on the flow through 

the snout. 

Lg+ I 51-60 R AFSU Upper bound on the flow through 

the snout. 

Lg+ 2 1-10 l NTUBE Number of streamtubes considered 

in diffuser calculation. Maximum 
value 15* 

Lg+ 2 11-20 I NUPR Number of points at which inlet 

velocity profile specified. Minimum 
value 2 , max i mum value 15. 

Lg+ 3 I- 10 R VPDATA First value of velocity. 

L d + 3 11-20 R RDATA First value of annulus height. 

D 

The other points on the velocity pro- 
file are entered on subsequent lines 
up to Lj.=Lg + NUPR + 2. RDATA should 
be made aimensionless so that all 
values lie between 0 (for the inner 
wall) and 1 (for the outer wall). 
VPDATA may consist of any set of 
numbers proportional to the velocity. 

Lj.+ 1 1-10 l NDIFF Index for diffuser calculations. 

Tens position indicates method for 
Stations 1-2: 

1 For streamtube analysis 

2 For empirical data 

and units position for Stations 2-4: 


These quantities can be estimated from information obtained from previous runs. 
If such information is not available, the quantities should all be set equal to 
0.0 in which case they will be estimated within the program. 
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Line Location Type of 

Number 


Fortr an Description 

Name 


1 For streamtube analysis 

2 For empirical data 

3 For mixing equation 

Note, however, that 1 in the units 
position cannot be specified with 2 in 
the tens position. 1 in hundreds 
position implies streamtube method to 
be carried out after empirical data 
method; negative sign implies no 
diffuser calculation: fixed effective- 

nesses supplied as input. 


L.+ I 11-20 I NEF 

c 


L c + 1 21-30 | NLUM 


L c + 1 31-40 | LANHET 


L r + 1 41-50 | NHT1 

I# 


index indicating entrainment correlation 
to be used. 

1 For mass- loss method 

2 For equivalent-entrainment method 

3 For profile-substitution method 

4 For instantaneous mixing 

index indicating correlation to be 
used for flame emissivity. 

1 For nonluminous flames, distillate 
fuels 

2 For nonluminous flames, residual 
fuels 

3 For Lefebvre correlation 

4 For NREC 1964 correlation 

5 For NREC 1966 correlation 

6 For emissivity from table of 
experimental data 

Index. 

0 If heat transfer to annulus air 
ignored 

1 If heat transfer to annulus air 
considered 

2 If no heat transfer calculation 
required 

Index indicating route through non- 
iterative heat-transfer calculation. 

1 For uhcooled wall, 1-dimensional 
radiation 

2 For cooled wal l , l-dimensional 
radiation 

3 For uncboTed wal 1 , 2-dimenslonal 
radiation 

4 For cooled wall, 2-dimensional 
radiation 
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Line 

Location 

Type of 
Number 

Fortran 

Name 

Description 

y 

51-60 

1 

NHT2 

Index indicating route through 
iterative heat-transfer calculation. 

2 For longitudinal conduction 

3 For radiation interchange between 
wal Is 

4 For longitudinal conduction and 
radiation interchange 

1 Otherwise 

V 1 2 

1-10 

R 

F.FC(1) 

Constant used to specify rate of 
mixing of penetration jets. 

y 

11-20 

R 

EFC (2) 

Constant used to specify rate of 
mixing of wal 1 jets . 

y 

21-30 

R 

E FDT ( 1 ) 

Effectiveness of diffuser between 
Stations 1 and 2 (i.e. between geo- 
metric input points no. 1 and NXDIF). 

L c +2 

31-40 

R 

EFDT(2) 

Effectiveness of inner diffusing 
passage between Stations 2 and 4. 

y 

41-50 

R 

EFDT (3) 

Effectiveness of outer diffusing 
passage between Stations 2 and 4. 


The three values of EFDT are required 
for the model in which no diffuser 
calculation is required, but experi- 
mental data for a diffuser of similar 
geometry operating under similar flow 
conditions are specified as input. 

For this case, NDIFF takes a value 
of -22, |f this option is not re- 
quired, the last three columns may 
be left blank. 

This completes the data for the first case. Subsequent cases 
are specified in one of two ways: 

1 . input Flow Conditions Varied 

J 

If INPUT « 0, only the first part of the case data (lines 
L^+l to Lj.) is given for subsequent cases. 

2. Program Routing and Correlations Varied 

If INPUT * 1, only the second part of the case data (lines 
Lp+1 and L^+2) is given for subsequent cases. 
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Sample Input Data 

Appendix I contains samples to illustrate the preparation of 
library data input* In Appendix II the input data for Overall Test Case 
3 are listed. Appendix II illustrates the instructions given above for 
the preparation of input data and also shows where the library data should 
be placed If I TAPE - KTAPE. 

Output Data 

The format for the computer output is self-explanatory and need 
not be discussed here. If problems arise, intermediate results may be 
printed out by setting I PR I NT = 1. (This option is only available when 
output is on tape unit No. 6.) The format for these intermediate results 
is rudimentary, and the program user must refer to the individual WRITE 
statement for details. Condensed output Is obtained on tape unit JTAPE 
(JTAPE - 8 in the present BLOCKDATA) by setting IPRINt - 0. With I PR I NT- 1 
under the present arrangement, intermediate results are written on tape 
unit 6 and condensed results on unit JTAPE (8). 

Appendix III contains the condensed computer output from Test 
Case 3* and illustrates the format for this output. 

Output of computer test-case input only may be obtained by 
setting NCASE * 0. 

Program Messages 

A number of messages are printed out by the program, either as 
part of the normal output or as Indications of errors in program operation. 

A list of these program messages is included as Appendix V, with explanatory 


notes 
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1. Dittrich, R. T. and Graves, C. C., Discharge Coefficients for Com- 
bustor-Liner Air-Entry Holes . I - Circular Ho les (NACATN 3663). 
National Advisory Committee for Aeronautics, 19<>5 . 

2. Kaddah, K. Sh., Discharge Coefficient and Jet Deflection Studies for 
Combustor-Liner Air-Entry Holes , Thesis No. 17/10, College of 
Aeronautics, Cranfield, England, June, 1964. 

3. Venneman, W. F., Flow Coefficients and Jet Deflection Angles for 
Combustor-Liner Air-Entry Holes . Part I, General Electric Company, 
Schenectady, New York, 1959. 
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General Electric Company, Cincinnati, 1958. 

6. Venneman, W. F., Flow Coefficients and Jet Deflection Angles for 
Combustor-Liner Air-Entry Holes . Part II, General Electric Company, 
Schenectady, New York, i960. 
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TABLES 
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TABLE I - KEY TO HOLE-D I SCHARGE- COEFFICIENT AND JET- ANGLE OATA 


Number 

Hole Description 

Reference 

Figure 

Curve 


Flush Circular Holes 




1 

Flush hole 0,125 in die 

1 

6(a) 


2 

Flush hole 0.25 in die 

1 

6(b) 


3 

Flush hole 0.328 in dia 

2 

42 


4 

Flush hole 0,472 in dia 

2 

43 


5 

Flush hole 0.75 in dia 
with 45 degree bevel 

3 

7 


6 

Flush hole 0.75 indie 

1 

6(e) 


7 

Flush hole 0.75 in dia 

4 

14 

E-l 

8 

Flush hole 0,75 in dia 

5 

3 


9 

Flush hole 0.759 in dia 

3 

6 


to 

Flush hole 0,807 in dia 

2 

44 


11 

Flush hole 0,985 in dia 

2 

' 

45 


12 

Flush hole 1,5 in dia 

l 

6(k) 


13 

Flush hole 1,59 in dia 

2 

46 


14 

Flush hole 1,809 in dia { 

i 

3 

13 


i 

. 

1 

Flush Rectangular Holes 

. 



15 

Flush hole 0,5 in square . 

4 

14 

A-1 

• 

16 

Flush hole 0,708. In square 

2 

90 


17 

• 

Flush holt 0,412 In long and 
0,206 In Wldi 

2 

83 














TABLE I 
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(CONT INUED) - KEY TO HOLE-DISCHARGE-COEFFICIENT AND JET-ANGLE DATA 


Number 

Hole Description 

Reference 

Figure 

Curve 

18 

Flush hole 0,436 In long and 
0.218 in wide with semi- 
cl rcular ends 

2 

60 


19 

Flush hole 0,591 in long 
and 0.295 in wide 

2 

84 


20 

Flush hole 0.624 In long 
and 0.312 in wide wl th 
semicircular ends 

2 

61 


21 

Flush hole 1.0 In long 
and 0.5 in wide 

2 

85 


22 

Flush hole 1,0 in long 
and 0.5 in wide 

4 

14 

A- 2 

23 

Flush hole 1.062 in long 
and 0.531 in wide wi th 
semicircular ends 

2 

62 


24 

Flush hole 1.24 in long 
and 0.62 In wide 

2 

86 


25 

Flush hole 1.312 in long 
and 0.656 in wide with 
semicircular ends 

2 

63 


26 

Flush hole 2.0 in long and 
1,0 in wide 

2 

87 


27 

Flush hole 2.0 in long and 
1 .0 in wide 

4 

14 

A- 4 

28 

Flush hole 2,124 in long 
and 1 ,062 in wide 

2 

64 


29 

Flush hole 1.42 in long and 
0.355 in wide 

2 

91 


30 

Flush hole 1.497 in long 
and 0,375 in wide with semi- 
circular ends 

2 

67 


31 

Flush hole 4.0 in long and 
0.5 in wide 

4 

14 

A* 3 


32 


Flush hole 2.0 in long and 
0.25 in wide 


92 
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Hole Description 


Reference j Figure I Curve 


Flush hole 2,1 in long and 
0.25 *n wide with semi- 
circular ends 

Flush hole 4.0 in long and 
0.25 in wide 


Thimbled (Plunged) Holes without Scoops 

Thimbled hole 0.475 in dia 5 

with tapered skirt 

Thimbled hole 0,625 in dia 5 

with tapered skirt 

Thimbled hole 0.792 in dia 5 

with tapered skirt 

Thimbled hole 1.286 in dia 3 

with full tapered skirt 

Thimbled hole 1.82 in dia 3 

with tapered skirt 

Thimbled hole 1,828 in dia 3 

with full skirt 

Thimbled hole 1,832 in dia 3 

with half tapered skirt 

Thimbled hole 2.281 in long 3 

and 1,281 in wide with 
semicircular ends and full 
skirt 

Step Louvers (For continuous cooiing films) 


Step louver 0,095 in high 
with overlap 

Step iiouver 0.095 in high 
with wiggle strip 

Step louver 0,104 in hSgh 


16(a) 


16(a) 
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TABLE I (CONTINUED) » KEY TO HOLE-DI SCHARGE-COEFFI CIENT AND JET-ANGLE DATA 


Number 

Hole Description 

Reference 

Figure 

Curve 

46 

Step louver 0,168 in high 

4 

15 

B- 10 

47 

Step louver 0,25 in high 
with overlap 

4 

16(b) 

B-5 

48 

Step louver 0,25 in high 
wi th wiggle strip 

4 

16(b) 

B-7 

49 

Step louver 0,255 in high 
(without sidewall extension) 

4 

17 

B-2 

50 

Step louver 0.26 In high 

4 

15 

B-3 

51 

Step louver 0.38 in high 

4 

15 

B-9 

52 

Step louver 0,623 in high 

4 

15 

B-8 


Holes with Scoops 




53 

Thimbled hole 1.843 in dia 
with scoop 0.31 in high and 
2.5 in wide 

3 

. 1 

1 

■ ■ ' 

2 


54 

Hole 2,0 in long and 1,63 
in wide with scoop 0.5 in 
high and projecting 0,43 
in into flame tube 

1 

3 

1 

4 


55 

| 

Hole 2,0 in long and 2,87 
in wide tapering to 1 .5 
in wide at rear with scoop 
0.437 in high and projecting 
0.375 in into flame tube 

3 

5 


56 

Half thimbled hole 1.286 in 
dia with scoop 0,437 in high 
and 2.83 in wide 

3 

12 


57 

i 

I 

Triangular hole assumed 2,0 
in long and 2,87 in wide 
with scoop assumed 0,437 in 
high and 2.87 in wide 

3 

16 



58 


Hole 2.3 in long and 1.3 In 
wide with semicircular ends, 
scoop, and turning vane 


6 


8 





Number 


Hole Description 


Reference 


Figure 


Curve 


59 Thimbled hole 1.05 in square 6 10 

with 0.3 in radius at 

leading edge corners, 
trailing edge raised 0.112 
in, and tapered skirt 

60 Thimbled hole 1.05 in square 6 11 

wi th 0 .3 in radius at 

leading edge corners, 
trailing edge raised 0.112 
in, scoop projecting into 
flame tube, and tapered 
ski rt 

61 Thimbled hole 1.05 in square 6 12 

with 0.3 in radius at leading 

edge corners, trailing edge 
raised 0.112 in, 90 degree 
vane projecting into flame 
tube, and tapered skirt 

62 Thimbied hole 1.05 in square 6 13 

wi th 0 .3 in radius at 

leading edge corners, 
trailing edge raised 0.075 
in, vane projecting into 
flame tube, and tapered skirt 

63 Hole assumed 0.75 in long and 6 14 

0.65 in wide with 0.26 in 

radius at leading edge 
corners and raised trailing 
edge 

64 Hole assumed 0.75 in long and 6 16 

0.65 in wide with 0.26 in 

radius at leading edge 
corners, raised trailing edge, 
and vane projecting into 
flame tube 

65 Hole assumed 0.75 in long and 6 18 

0,65 in wide with 0.26 in 

radius at leading edge corners, 
raised trailing edge, and 50 
degree vane projecting into 
annulus and flame tube 
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TABLE I (CONTINUED) - KEY TO HOLE-D I SCHARGE-COEFFI Cl ENT AND JET-ANGLE DATA 


Number 


Hole Description 


Reference 


Figure | Curve 


Hole assumed 0.75 in long 
and 0.65 in wide with 0.26 
in radius at leading edge 
corners, raised trailing 
edge, and 70 degree vane 
projecting into annulus and 
flame tube 

Hole 2.3 in long and 1.3 in 
wide with semicircular ends, 
scoop, and turning vane 

Hole 2.3 in long and 1.3 in 
wide with semicircular ends, 
scoop raised 0.125 in, and 
turning vane 

Hole 2.3 in long and 1.3 in 
wide with semicircular ends, 
scoop raised 0.25 in, and 
turning vane 

Hole 2.3 in long and 1.3 in 
wide with semicircular ends, 
scoop, and turning vane 
with rounded corners 

Hole 2.3 in long and 1.3 in 
wide with semicircular ends, 
scoop with leading edge 
raised 0.125 in, and turning 


Semicircular hole assumed 
0,295 in radius wi th 
thumbnail scoop 0,15 in 
high 

Semicircular hole assumed 
0.373 in radius wi th 
thumbnail scoop 0.265 in 
high 

Hole 0,75 in dia with scoop 
0,75 in wide and 0.427 in 
high 

Hole 0,75 in dia with scoop 
0.75 in wide and 0.636 in 
high 






TABLE I (CONTINUED) - KEY TO HOLE-PI SCHARGE -COEFFI Cl ENT AND JET-ANGLE DATA 
Number Hole Description Reference Figure Curve 


76 Hole 0.75 in dia with scoop 4 19 D-3 

0.753 in wide and 0.891 in 

high 

77 Hole 0.75 in dia with scoop 4 19 D-4 

1.461 in wide and 0.585 in 

high 

78 Thimbled hole 2.155 in long 6 9 

and 1.27 in wide with semi- 
circular leading end, 

trailing edge raised 0.19 
in, and tapered skirt 

79 Thimbled hole 2.155 in long 6 9 

and 1.27 in wide with semi- 
circular leading end, 

trailing edge raised 0.19 
in. scoop 0.7 in behind 
leading edge, and tapered 
ski rt 

80 Thimbled hole 2 . 155 in long 6 9 

and 1.27 in wide with semi- 

circular leading end, 

trailing edge raised 0.19 
in, scoop 0,32 in behind 
leading edge, and tapered 
skirt 

81 Thimbled hole 0,815 in dia 5 7 

wi th scoop 0.312 in high and 

full skirt 

82 Hole 1.0 in dia with scoop 5 10 

0.312 in high and long tube 

in p 1 ace of skirt 

83 Thimbled hole 0.8 in dia 5 11 

with scoop 0.312 in high 

84 Thimbled hole 0 .815 i n di a 5 12 

with scoop 0.312 in high 

placed at 20 degrees to 
annulus flow direction and 
full skirt 
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TABLE I (CONTINUED) - KEY TO HOLE-DISCHARGE-COEFFICIENT AND JET" ANGLE DATA 


Number 

Hole Description 

Reference 

Figure 

Curve 

85 

Hole 0.49 in long and 1.012 
in wide with scoop 0.21 in 
high and turning vane 

5 

13 

"Rear 

Hole 

Closed" 

86 

Hole 0.7 in long and 1.012 
in wide with scoop 0.21 in 
high and turning v'ane 

5 

13 

"Rear 

Hole 

Open" 

87 

Hole 0,123 in wide with 
scoop 0.47 in high 

5 

15 


88 

Thimbled hole 0.75 in long 
and 0.745 in wide with 
scoop 0,506 in high and 0.765 
in wide and ful 1 ski rt 

5 

16 

4a 

89 

Thimbled hole 0,48 in long 
and 0.745 in wide with 
scoop 0.506 in high and 
0.765 in wide and full 
ski rt 

5 

16 

4b 

90 

Thimbled hole 0.24 in long 
and 0.745 in wide with scoop 
0.506 in high and 0,7^5 in 
wide and full skirt 

5 

16 

4c 

91 

Thimbled hole 0.57 in long 
and 0.51 in wide with scoop 
0.5 in high and 0.555 in 
wide and f u 11 ski rt 

5 

17 


92 

Thimbled hole 0.325 in long 
and 0.74 in wide with scoop 
0.53 in high and 0.76 in 
wide and ful 1 ski rt 

5 

18 

"Based 
on Exit 
Area" 

93 

Thimbled hole 0.325 in long 
and 0.74 in wide with scoop 
0.53 in high and 0.76 in 
wide and full skirt 

5 

18 

"Based 
on Inlet 
Area" 

94 

Hole 0.75 in long and 0.765 
in wide with scoop 0,545 in 
high placed 0.75 in in 
front of hole leading edge 

5 

19 
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TABLE I (CONTINUED) - KEY TO HOLE-DISCHARGE-COEFFICIENT AND JET-ANGLE DATA 


Curve 


Number 

Hole Description 

Reference 

Figure 

95 

Thimbled hole 0.875 in long 
and 0,8 in wide with scoop 
0.507 in high and 0.76 in 
wide and half ski rt 

5 

20 

96 

Hole 0.375 in dia fitted 
with elbow scoop 0.385 in 
dia with entrance centre- 
line 0,528 in from wall 

5 

22 

97 

Hole 0.68 in long and 0.65 
in wide with scoop 0.165 in 
high and 0.63 in wide 
projecting into flame tube 

5 

22 

98 

Hole 0,69 in long and 0.65 in 
wide with scoop 0.205 in 
high and O .63 in wide 
projecting into flame tube 

5 

23 

99 

Hole 0.69 in long and 0.65 
in wide with scoop 0.305 in 
high and 0,642 in wide 
projecting into flame tube 

5 

24 

IOO 

Hole 0.92 in long and 0.89 
in wide with scoop 0.273 in 
high and 1 .02 in wide 
projecting into flame tube 

5 

25 

, 
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FIGURES 
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FIGURE 5 - FLOW CHART FOR SUBROUTINE GSOM 
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FIGURE 6 - OVERALL FLOW CHART FOR DIFFUSER SUBPROGRAM 
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[Entry 

lolFLW 



FIGURE 7 (CONTINUED) - FLOW CHART FOR SUBROUTINE DIFLOW 























FIGURE 9 - FLOW CHART FOR SUBROUTINE TU8STA 














FIGURE 11 


FLOW CHART FOR SUBROUTINE TUBFW1 















Calculate wall slope 


Guess pressure at next 
station downstream 
(Eq 30 


Guess at streamline 
slope (Eq 30) 


Calculate streamline 
slope and new guess 
atlA. (Eqs 32,33)1 



ZA, 

“T* 0.001 

A . ^ 


•fhls the last" 
station to be 
**xpns I dered?^ 


[Return 


A1 1 references are to Volume I 


FIGURE 13 - FLOW CHA RT FOR SUBROUTINE TUBANL 
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All references are to Volume 1 


FIGURE 17 - FLOW CHART FOR SUBROUTINE EMPANL 







All references are to Volume I 


FIGURE 18 


FLOW CHART FOR SUBROUTINE PROFL 
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FIGURE 19 - OVERALL FLOW CHART FOR AIR-FLOW SUBPROGRAM 
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X** A p/q< o^— 

* parweter* end 


update 

Tm 


fsubrpotln* IQUWiJ— 


(nova to next 1 


(calculation point \ 


™ I let floN.tpml 
•* "I ratio to I i 


X '* \ 

Qhll th# InneX 

X s annulu»?X , ‘ 


[Store and update lnn*r ennglui parameter*! 


I Store and update 
outer aortulu* 

parent ter a 


ICalculata flow split 


1 Sue routine ifturrl 


"^ealculatiorN 
point end 
.of fie** ^ 
X«ubo?X^ 


[ Determine air matt flow 1 
rami wing In each awtutuaj 


4iat anmitu* parameter*! 


Sat ennulu* y#» 

Candle lone, _ 

»et jit 

parameter* 

to lero 


Ar.\ 
annutut and*X. 
3 I#m lube equation^ 
X^balnj jolved?.X^ 


I Hodify air mm flow! 
In both annuli S 


afr*ri*TS. 

rretla within epcclflad"; 
XL t Ini tl 


X u \ 

Cthl* a tecondarv; 

X M*tX 


ptodlfy dir *a»e HOwL 
| In ingot end on nut I f 


Xlr net* n»X 
regaining within 
^tpocified limitt*' 


j Store tecoodary-hola Jat parameter*] 


alculate floe **a1 1 * !■ 


I Set elt jet parameter* up I 
Ite tneondary hot* to Mro| 


Subroutine 

birflo 


FIGURE 20 - FLOW CHART FOR SUBROUTINE AIRFLO 
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FIGURE 23 



Set parameters obtained 
from heat subprogram to 
typical values 



Calculate for Inner 


Calculate 

for outer I 

annulus transpiration 


annulus transpiration 

cool i ng and f r let ion 


cooling ',nd friction 

parameters 


parameters 



Solve quadratic 
equation for U 


Calculate pressure, | 
density, temperature, I 
and air mass '/low rate 
i 1 1 4 



Add Jet mass flow 
to primary zone 
eir mass flow rale 



Calculate: 

Bleed for cooling | 
air, accumulated 
pressure drop due| 
to friction and 
expansion 



Calculate: 

Bleed for cooling 
air, accumulated 
pressure drop due 
to friction and 
expansion 


- FLOW CHART FOR SUBROUTINE EQUAN 
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FIGURE 24 


FLOW CHART FOR SUBROUTINE EQUFT 
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Reference is to Volume I 


FIGURE 2 


FLOW CHART FOR SUBROUTINE HEATAD 
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All References Are to Volume I 
FIGURE 26 - FLOW CHART FOR SUBROUTINE JETMIX 
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Noniterative hiat-t rantfe f calculation 
(Subroutine HEAT!) 


iterative HeaMrenafer calculation 
(Subroutine HEAT2) 


FIGURE 27 - OVERALL FLOW CHART FOR HEAT-TRANSFER SUBPROGRAM 
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(Evaluate radiationl 
effect (Eq 155) 
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All references are to Volume I 


FIGURE 29 - FLOW CHART FOR SUBROUTINE HEAT 2 




Entry 



FIGURE 30 
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All references are to Volume I 


FIGURE 31 - FLOW CHART FOR SUBROUTINE PROP 
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BLOCKDATA 
CLARE 
D I FLOW 
AIRFLOW 
INTPL8 
GASTBL 
SLOPE 
MAPI 
REMOVE 

ORIGIN 1 | (REW) 


$ INCLUDE B2TBDS, B2TUB, B2EMP $ INCLUDE FRDU, FIOU 
DOUPT GEOM 

INPUT I 
INPUT2 
TAPE 


ORIGIN 2 


NEWRAD 

PROFL 

TUBE IN 

EMPANL 

TUBANL 

EMPCTS 

TUBSTA 

EMPSTA 

TUBCTS 


TUBFW1 


TUBSA1 



(REW) 


EQ.UAN 

HEAT1 

EQ.UFT 

HEAT 2 

DISJET 

EEFT 

JETMIX 

COOL 

HEATAD 

PROP 

PRTEMP 

TWALL 


FIGURE 33 


OVERLAY STRUCTURE OF THE PROGRAM 



APPENDICES 
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APPENDIX I 

SAMPLE LIBRARY- DATA INPUT 


The following three sample input-data sheets illustrate the 
computer card format used for the library data. The numbers at the tops 
of the input data sheets correspond to the 80 columns in a computer card; 
each line of data represents the content of one computer card. Beneath each 
input data sheet is a tabulated version of the data. For a verbal description 
of the library data-format the reader should refer to pages 27 to 33 of this 
volume. 


Flame Emi ss i vi ty 


9 HHHI 

iIBBR! 

>1 - 30 

n - 4o 

[+1 - 50 

;i - _6n 

51 ..... 7fl 


U 

19 

3 

m 




BWifljl 

540. 

1540 . 

SH 1 




211 ..S 

|||g%j| 

.17 

mam 

mmm 

,092 

.n 

.13 

B MH 


mam 

.07 

nsm 

.95 . 

.03 



|| 

mmm 


mmm 













■ 1 


Data” Employed 


in Above Example 



Temperature 


mm 

deg F 


4230 

540 

.17 


1540 

. 185 


2540 

.16 


3540 

.092 

846 

■ ■ 

.11 








UmM 


211.5 

540 

.07 


1540 

.076 


2540 






ic 

Purely Illustrative 
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APPENDIX HI 


SAMPLE COMPUTER OUTPUT 
( RESULTS OF OVERALL TEST CASE NO- 3) 



analysis f t \ 


BALIAS 


ccmrlsttjm 


VO 

CO 


TEST CASE MO. 3 


***•*»♦**« *«* INPUT C AT A *•**»**»»**»* 


GEOMETRIC CONFIGURATION OF COM8UST.TR 

THE GEOMETRY IS OEFI.ltD AT 29 GEOMETRIC INPUT POINTS 


AXIAL 
POSI HON 
PRIM 



- - - DIAMETER 

: INCHES 



GEOMETRIC 

COMPRESSOR 

JNNFR 

INN FR 

INNER DOME 

CUTER COME 

OUTER 

CUTER 

INPUT 

DISCHARGE 

INCHES 

CASING 

SNOUT 

OR FLAME 
TUPS: HALL 

CR FLAMF 
TUBE WALL 

SNOUT 

CASING 

PCINT 

NUMBER 

0. 

32.500 

-0. 

-0. 

-c. 

-C. 

3S.70C 

1 

0.500 

32. 300 

-0. 

-0. 

-0.. 

-0. 

35. 9CC 

2 

uooe 

32. COO 

-0. 

-0. 

-0. 

-0. 

36.20C 

3 

1.500 

31.800 

-0. 

-0. 

-0. 

-0. 

36.4CC 

A 

2.000 

31.500 

-0. 

-0. 

-0. 

-0. 

36. 70C 

5 

2.503 

31. 300 

-0. 

-0. 

-0. 

-0. 

36.900 

6 

2.800 

31. 100 

53. 100 

-0. 

-0. 

35. IOC 

37. IOC 

7 

3.000 

31. COO 

33.000 

-0. 

-c. 

35.200 

37.20C 

8 

4.000 

30.500 

32.500 

-0. 

-c. 

35.700 

37.70C 

<5 

5.000 

30. 100 

32.100 

-0. 

-0. 

36.100 

38.100 

IC 

6.000 

29.600 

31.600 

-0. 

-0. 

36.600 

3P.60C 

LI 

7.000 

29.100 

31.100 

34. IOC 

34. 100 

37.100 

39. IOC 

12 

8. 000 

28.600 

HO. 6^0 

31.100 

37. ICO 

37.600 

39.6CC 

13 

8.600 

28. 200 

iC. 290 

30.200 

26.000 

28.C0C 

40.000 

14 

9.000 

23.200 

30.200 

10. 230 

36.CCO 

3S.OOC 

4C.00C 

15 

9.100 

23.200 

29. 900 

29. JJJ 

18.300 

38.30C 

4C.CCC 

It 

14. 000 

28.200 

29.900 

29.9CC 

38.300 

*8. 20C 

4C. roc 

17 

15.000 

28. 200 

29. >00 

29.900 

38. 300 

38.300 

40.000 

1“ 

15.100 

28 -.230 

✓ 9. hot) 

29.60 3 

13.600 

38.60C 

40. JOC 

19 

20.000 

28.2 Ju 

29.609 

29.6J0 

56.600 

38.600 

4C.C0C 

2C 

21.003 

28.200 

?<3.600 

29.600 

38.600 

38.600 

40.000 

21 

21.100 

28. 20C 

29.130 

29.100 

18.900 

38.90C 

40.000 

22 

2 6. 000 

28.230 

29.300 

29. 330 

38.900 

39.900 

4C.C0C 

23 

2 T. 000 

28 *2 JO 

2 9. 300 

29. 303 

*8 .900 

38.90C 

4C.CCC 

24 

27.100 

28.200 

29.000 

29.000 

39.20 0 

39.200 

4C.000 

2 V 

29.000 

2P. 209 

29.000 

29. COO 

19.2CC 

39.200 

«o*ooc 

2* 

30.000 

28.200 

29.000 

29.003 

38.200 

38.20C 

«o.ooc 

71 

31.000 

28.200 

29.00C 

29. 0 JO 

37.200 

37.20C 

4C.rcr 

28 

32.8 00 

26.200 

29.000 

29.000 

37.200 

>7.200 

4C.0OC 

28 



SHIRLER OESIGN 


(SPECIFIED AS I.IPU1I 




NUHB-R OF SHRIEKS 

* 

?4 


NUMBER 3F BLADES 

* 

H 


BLADE STAGGER ANGLE 

T 

As.cn 

flECRC S 

INNER DIAHFItR 

9 

l.oo 

IlCHCS 

OUTER OIA AFTER 

■w 

l.sc 

I nChpS 

AREA PER SMIRLLR 

S 

0.3* 

STUAPt INCELS 


lirACUMC SlCCKSGr CUE 10 VANCSI 


DETAILS OF AIR ENTRY PuRTS AND GEOMETRY if EACE HOLE RCH 
THERE ARE 19 HOLE RCwS 


HOLE 

AXIAL 

HOLE 

tNNER 

NU»PER 

TOTAL PORT ARE A 

RATIO TOTAL PORT 

•CUPLLATIVE SUM 

RATIO 

RATIC 

RAT IC 

ROW 

P0SI1I0N 

TYPE 

rs 

CF 

HOLES 

AT TE IS 

HOLE RCW 

AREA THIS 

ROW 

CF AREA 

RATIO 

fla*e 

INVER 

CIIT£ = 

NUMBER OF HOLE 


OUTER 

IN 

THIS 

SQUARE FEET 

TO GRAND 

TOTAL 

(LAST COLLPNI 

TUBC 

tKMLUS 

ANNLLUS 


CENTER- 


MALL 

RCW 







C S AREA 

C S arfa 

C S AREA 


LINE 





PENETRAT 

COCLING 

PENETRAT 

COOL ING 

PENETRAT 

CCCLINu 

TC REF 

TP REF 

rn Rff 


INCHES 





-ION 

SLCT5 

-ION 

SLOTS 

-ICN 

SLOTS 

A9EA 

a» f s 

kx ca 







POLES 


HCLES 


HOLES 











- “ 


00«*F 


- - 




TOTAL 

COOLING AIR 

ENTRY PCRT 

AREA IN THE OCPE 

* c. 

SC FT 







TOTAL 

PENETRATION 

AIK 

ENTRY PCRT 

AREA 

IN THE DC ME • 0.164 

SQ FT (INCLUDING 

TCTAL SWIRLFR AREA] 









r * 


FLAME TUBE HALL- 


- 




i 

9.000 

44 

INNER 


1 

0. 

0.C61 

0. 

O.lll 

0.045 

C.UI 

C.651 

0.145 

0.194 

* 

9.000 

44 

CUTER 


I 

0. 

0.079 

0. 

0.135 

C.045 

0.25C 

0.661 

0.145 

0.1 94 

3 

A2.3C0 

75 

INNPR 


50 

0. IS] 

0. 

0.062 

0. 

0.087 

0.25C 

C. 712 

C.123 

0.165 

4 

12.000 

75 

OU IrR 


40 

0.IS3 

0 . 

0.042 

0. 

0.128 

C.25C 

0.712 

0.121 

0.165 

* 

13.500 

0 



-0 

G • 

0. 

0. 

0. 

C. 128 

C.25C 

0.717 

0.1?] 

0 . 165 

* 

15.000 

44 

INNER 


i 

0. 

C • C6W 

C, 

O.ltc 

C.12B 

0.360 

0. 712 

0.123 

A. 165 

T 

15.000 

44 

OUTER 


i 

0. 

0.0 79 

0. 

0 . uc 

7.128 

C.5CC 

0.71? 

C.l?) 

0.165 

B 

16.500 

0 



-0 

0. 

0« 

0. 

0. 

C.I28 

C. 500 

C.T43 

0.101 

<1.137 

* 

1S.000 

27 

INNFR 


40 

0.SS6 

0. 

0 . 152 

0. 

C.2B0 

0.500 

0.763 

n.ici 

0.137 

10 

la.ooo 

27 

OUTER 


40 

0.554 

o. 

C .152 

0. 

C.432 

0.50C 

C. 763 

C.lCl 

s.137 

11 

19.500 

C 



-0 

0. 

0. 

0. 

0. 

0.422 

C.50C 

C. 763 

C.lfll 

1.137 

12 

21.000 

44 

INNER 


l 

0. 

0.061 

0. 

0.IC5 

C.432 

C. 605 

C.763 

o.loi 

0.137 

13 

21.000 

44 

flUllR 


I 

0. 

C.OBO 

0. 

0.141 

C.432 

0. 7SC 

r.763 

P.lCl 

n. 1 37 

14 

22.500 

t 



-0 

0. 

0. 

c. 

0. 

C.432 

0.75C 

C.814 

0.C73 

O. ICO 

15 

24.000 

27 

INNER 


7S 

1.042 

0. 

0.2B4 

0. 

C. 716 

C.75C 

0.814 

0.077 

0.1CK 

16 

24.000 

27 

OUTER 


IS 

t . J 4? 

0. 

0.284 

0. 

I.OCC 

C. 7S0 

0.P14 


0.109 

IT 

21. 000 

44 

I NNE * 


l 

o* 

0.061 

0. 

0.107 

I.CCC 

C. 857 

C.814 

o.rri 

0.109 

18 

27.000 

44 

OUTlR 


l 

0. 

0.081 

C. 

0.143 

l.CCC 

i.ooe 

9.*|4 

C.CI9 

0.1C9 

14 

32.700 

0 



-o 

0. 

0. 

0. 

0. 

l.oco 

i. oer 

0.675 

0.057 

il.26'1 


VO 

TOTAL COOLING PORT ARP A tN THE FLA*E-TU8* HALL « C.56S SC FT VO 

TOTAL PENETRATION PORT AREA IN THE FLAME-TVJ8E HALL * 3.501 s: FT 



RATIO OF TOTAL HULF \t'.~ \ t tNCLUDI .0 S-! l_?, CEVF fi;LPK, 

COOLIN'. SLOTS, AND T > ATH-N HOL'SJ H MF- PNCF AT 11 .1 » .S 64 

THERF AR C NC JFT-a\;l>- DAT". FCl 'ICLE TYPE NC. 7s . T»' INITIAL J<=T-ANGLE ». ST I MA T £ LSFR I\ TMF P 1 * EGRA V IS ACT 3 1 
ACCURATE FOR StUilPS. 


MISCELLANEOUS oat A - l.lFruSE^ SFCTICN 


THE OIFFUSER SfcCTirA CONTAINS A SMUT 

INPUT POINT 7 IS THr LAM STATIC; 9EFE Rr IF; SN'ut 

DIFFUSION IS CLNSIDERFt) TO END AT INPUT POINT NUVPEP l* IN THE INNER ANNULUS 
DIFFUSION IS CCNsIOERtii TIJ END AT INPUT POINT '.UM a FR l* IN THE CUTER ANNULUS 
THE EMPIRICAL UATA T i HE USED PEF IRE IFF SNCJT IS S-T NUMBER l 
THE EMPIRICAL data TO 3- USFC AFT^R TFF SNCUT IS set iuife’ l 


M7.SCS LLANE OLS DATA - At 'fLCW SECTION 


HOLE ROW NUMBER t IS THE FIRST HOLE RCW IN THE FLA^E-TUPE WALL, AS DISTINCT FROM THE COMF 

HOLE RON NUMBER 3 IS CONSIDERED n MARK TFE END OF Ttir PRIMARY ZONE (WHICH IS CONSIDERED AS A STIRRED RpeCTS’M 
THE FRACTION OF AIR FLOWING THROUGH THE SECONDARY HOLES THAT RECtRCULATES 
INTO THE PRIMARY ZONE IS xCRKED CUT IN THE PROGRAM 

THE FLOW RESISTANCE IN THF SNCUT IS a. VELOCITY HEADS I3ASFO ON CONOtFICNS IN THE SN’CLT LTF) 

FRACTION 3F INLET AIR BYPASSING CUMBUSTOR 





INNER 

ANNULUS 

C.C1C 





CUTER 

ANNULUS 

0.030 


AXIAL 

POSITION AT WHtCH 

THIS 

OCCURS 







INNER 

ANNULUS 

3Z.8CC 

IN 




CUTER 

ANNULUS 

32.800 

IN 

FUEL 

DATA 







LOWER HEATING 

VALUE 

• 13 560.0 

BTU PER 

LEM 



HYORCGEN/CAPBCN R AT I 0.L70 


MISCELLANEOUS DATA - HEAT TRANSFER SECT ICN 


r n 

ht>. per ft m te-' e 


THE CASING TfcMPfcRATUU IS NCT SPFCIFIfr 
FILM COOLING CAN PF USED 
TRANSPIRATION COOLINJ IS NCT USED 


flame tube wall thickness o.om 

THERMAL CONCUCTIVITY OF -ALL MATERIAL... IS. -IS 
ABSORPTIVITY OF FLA N r TU"*~ WALL.......... C.isr, 

EMISSIVITY CF FLA V C TUi’ c wALL O.^SU 

EMI SSI VI TV OF TUTFR CASING 0.300 



;ases ctP'Siotatu i < n*is 


t cases **e tc si 
imhkwmi mitH„ is 


CovStC*-»n 

*tr« *. ,» rxt* cas* m cast 


o 



• •••••« »•♦••* C*sr s.. 


|#***4*4i****** 



■Niff Fin* tasuinp 


(orM. »iwfn*ii.Re *t ciscf-oso* * 

ism *t * 

• I* ^UBm It CtW»,f ' .|SCF*t<JE * 

OVfftAll EUtl.-*IA *r«; 


it*»e.oca cec « 

>40. .000 ESI* 

<*A.CCC IB* ?*< SEC 

0.0 ti" 


BlffUSf* INFUT 0*1* 


Ml ft ML SM*F€ FACTORS 
IMF* Mil 
01 . IE* MU 

inter eou*o*«v i*»i» i lockage * 

F*u.;no* 3f iNtEt flock v,f. cn inne* wall • 
«HMc* OF SWflP tOH.S to re consicpuc • 


I.AOO 

l.* 0 O 

'1 . CCh 
3 .Wit 
f 


f |HST ESIIHATf OF SUXMCF *t DCM1IHW FCI>«t$ 


AKI*L DISTANCE INCHES FICCMCE 


C. 

0.*00 

1.000 

I.5C0 

?.000 

i.SCC 

t.ecc 


c .«* 

C.CIC 
C. Etc 
O.OIC 
C.CIC 
C.CIO 
C.CIC 


l\t«-t ¥FUKft* FADE HE 


F4ACTIGMH CIST»*C£ *CAC^S IMH F>l*N r 
I«iE»SU*EO F<D» t***® Mill 


v^irctr* iN^v!i» , F*sir**tt£eD 
HITE M WIIPH* »€tcc«t»» 


0.100 

O.tOf* 

*oo 

0 .* 0 t' 
0.000 
S.ACO 
C .000 


O.tfSC 

0. NCC 

1. CCC 
c.scc 
o.occ 
o.ncc 
«.*•« 



foti #*»**« Vi »*if *••> «;%siv, lt umco. stirs 


CALfHA 1 10 1 

AXIAL 

( !'*LIAI| »1 

1 *t -t'MVi 

CAsr.f. i 

It »AlL< 

roixt 

PCStflys 

» TACT 11 1 

> *f 

ore f 

MUMS- A 

!H 

mjei rotsi 

t .•< 8r« s*c 

INMFA 

our 9 

1 

0.000 

3.100 

nin 

nw.o 

1 14.4.0 

2 

9.90C 

©.!»•* 

■>.|4'* 

1190.0 

II4C.C 

3 

10.000 

0.2*2 

0.144 

1190.9 

1 140.0 

A 

10.900 

0. *4t» 

0. 144 

1190.0 

U40.C 

9 

11.000 

0.4:33 

0.144 

1190 *0 

1190.0 

A mMfiMM 

II.A2S 

0.932 

O.lfcO 

USO.O 

1190.0 

1 

11.930 

0. TOO 

0.2A1 

114© .C 

1190.0 

• 

IS. 000 

0.800 

0.121 

1190.0 

1190. C 

0 

IS.SOO 

©•At 2 

0.027 

1140.0 

U9C.C 

10 

10.000 

0.*3i 

0.02 i 

1190. 0 

1190.0 

II 

IA. 900 

0.990 

0*024 

1190.0 

1150.0 

12 

If. 000 

0.842 

0.029 

1190.0 

119C.C 

13 

19.900 

0.490 

0.144 

1190*0 

1190.0 

14 

21.000 

0.390 

0 » 

1190.0 

1190.0 

IS 

21.930 

0.990 

e. 

1190.0 

1190.0 

1* 

22.000 

0.440 

0. 

1190.0 

1140. C 

ir 

22.900 

0.490 

0. 

1190 .0 

1190.0 

i* 

23.000 

0.490 

0. 

1 190.0 

1190.0 

*<* 

22.000 

0.490 

<1. 

1190.0 

1190.0 

20 

22.900 

0.990 

0. 

1190.0 

I140.C 

2t 

28.000 

0.990 

«, 

1140.0 

1 190.0 

22 

*0.900 

0. 990 

0. 

1190. C 

1190.0 

23 

*9.000 

0,990 

0. 

1190.0 

1190.0 

24 

32.200 

0.990 

0. 

1190.0 

1140.0 

IS 

*2.800 

0.990 

0. 

1190.0 

1190.0 


moutinc mmuGH (he 



INC iflUlNKXT C XtXMWtXr *0061 IS M-.O ft ACPHI-St-Hl 3ff *IXtHG wiih » CCAS 1AAT IF 1.000 rc** *>£NCTf«*2|CH 4€»S 
M) 0.200 ICX MALI Jf K 

NCAf IMWH 10 AMAuLOS At A IS HOT CCNSIjCAEO 

THE 2LAM2 IS ASSOI'CC la HF LUrlHCU'.. IMF CC*»fL*HCA IS LSFC 

INC A ASIC Mf AT TAAHSff! CAICJIM IC-t VUVcS fC <* A *nu*L WITH COOLED Hm-HPf MALLS S4© t-Otn\SltAU 
KAOfATlOH r#A*«-EK 2.L« tH~ FL**i 

MO COAACCTHWS AAC MALL TC T« BASIC Mf AT TRAN4*C» CALC Ut AT 104 

TH* $m*»»ruCL IS USFu TO CALCLU.4T* 0I2FUSF9 PF«fC«MAHC6 f«OM IMF Cim*** IHtTI in IMC SKCUl 

IHCMI Kite t OUA T I ON •> M'U IS U9F0 10 C*LCilt»rC IhC OtFFJ%l^ f>E«T0«<*A4CF 19 TPt PASSV.FS SFlMFl I SHCC T A*4C PIIM C4SI4 

if f HPi At cal o*ta A-tr hvc rc c*tcyi*r r thf ciffusi-i ffrcr.t itches*. iLtse oau *<p iaxfa ft n* »we us«at» f trr 



tcrctencr ccwi flows 


■EFfRfNtF AREA 

m 

A. JAM 

so rr 

«h«eno mocifv 

m 

145.2 

Ff MEN SEC 

IMLCr MCI NUM.CN 


0.2R7 


•fl ERfMCC MACH MN(« 

m 

0.07A 


■CftNEMCf 01NAFIC FFCSSU1F 

m 

0.1* 

FSI 


ilfNKi riimms - ta«»»EsscR ouiie t iu me nr cf imc slcui 


m MIS MM Of tHf OIFFUSFR * StHF AFIUOI ANALYSIS is USED 


OlFFUSCR FFRFOAmNCf 

MB Ml XING At Oun.ll 

IDEAL FNCSSURI 4»CC«E*V COtff . • 0.714 
MllftK RCCWF14 CUCff. • 0.140 

•iff use* ffrccnvfwi ss - 0.7*1 

FRACTIONAL lOfAL FRCSSURf LOSS • 0.000 


mtcilf FROFILF Af fXtl «f 6I7H!« 


f«ttf IONAI ANNLLUS (tf IGHI 

0.11* 

0.111 

0.2 .« 

0.11$ 

C *71 

C.Stt 

0.ST7 

0.*1S 

0.712 

O.fCS 

C.««A 

ME ION T ALlONfNS FOR tflOCkACt . .. 

o. 

0,100 

e.?<w 

0.10C 

C.AOC 

C.SOO 

0.400 

e. ice 

C.AOC 

0.4CO 

».0«»0 

VtUCttV. FI FEN SIC........... 

2*4.40 

»1.M 

m.o* 

*71.11 

*77.42 

111.M 

1A0.C1I 

SA2.F1 

9*0.20 

11*. 11 

2fS.es 


lOUhCMT LA*** FRUFCRTIIS - SOLUTION MAS COWtCNGfC 


ILMEN MALL WK« MAIL 


STATION 

MHMAEA 

Alii 

IN 

FRESSUlt 

■SI A 

CILIA 

IN 

mu 

IN 

H 

UCL1A 

IN 

FHCfA 

IN 

F 

AN. AREA 
SC IN 

FR<CII<<LAI 

St ATI CM 
MIMIC* 

1 

e. 

•4.102 

0.004 

0.C04 

1.400 

0,004 

0.CC5 

1*400 

171*47)1 

0.00*2 

1 

2 

C.SOO 

ll.11* 

0.0*7 

O.UOA 

«.*«» 

8.C1I 

C.097 

1*171 

tS2.fl! 

0.017* 

2 

S 

1.000 

•7.004 

0.021 

0. 014 

I.F1? 

0*02? 

C.C1S 

1.711 

724.441 

0.0244 

lis 1 

* 

l.soo 

• 7.410 

0.942 

0.024 

I.TSC 

0.C4© 

0*021 

1.749 

24*. IS* 

0.01*2 

* 

S 

2.000 

•7.440 

** 0.0*1 

o.ow 

7.IM** 

** C.CAC 

C.CJ# 

2.1S7»* 

27R.411 

0.0*0* 

4 

A 

2. SO® 

•7.1*1 

0.2S1 

0.010 

l.SCC 

0.212 

€.021 

l.SOC 

241. IS* 

0.1714 

* 

1 

KAMA not 

2.000 *7 .SR 4 

IF 11 OCCURS IS 

O.ISN 0.010 l.SOC 
1HUIC4IF0 ET ♦♦ .*♦ 

0.1*7 

0.024 

S.9CC 

121. IF* 

0.2274 

7 



oirruKK - ivim oirtusm passagi «*tn»f* shout wt casing 


in MIS MM 3F INC WtFFUSFP T« PFRFt>*M*HCt IS CHCUUKD UNO IMf HIUM (CUIIU 


OIFFUSER KWOMUKI 

HM AitONFO 10 «« *f ami 

IMU pressunf cntff. — o.ifo mnciudtnC mine miciti 

pressure arccvta* o>t#f. — o.et* 

unvui f»am«fis • i.m$ 

fucuom. ram pressure less » c.oor lessee oh mu CMoirimi *t ssc* aiuu 

IMIS seen os mas ft* ftxfft RAUC less man cue **o acts *s ft >umf two noi is • 01 reuse* 
t«e w«LUF nirnta our *s the diffuse* rmtuvntss is not an inotcation or nos .m tie srenn «*«*n 
MSMIC* ft! INC SNOUT IS CNfttf ACTFRISEO II* IMf Vftlto - 

inmt sniurvK iki jusi whh ire snout i/ihom 1*1 * just inside me nan. mis patif is t.ss* 
ftS nm ratio is ours ice tme ramme o.«s-i.i* ini rum san 0 * me snout is noi mfu natcmto 
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III. ft* 

82*.3ft 

MU 000 

0*B2«E 

0ft 

0.1*** 

00 

0.>W» 

•ft 

».*•! 

0.602 

o.roo 

12. 07 

1.C1 

828.0ft 


«C*f MLWH ««S 


MMF IMT5FI* RATI A AM AIM'S 

*«6M NALL TO ANNUL t |««»*NCMAN6C 

*TU AC A SO >1 »CC >*0 Off site 

NALL CIL *f« 

• AC I AT TON COWVKHIVi S3 ft 3EC 

INNM CUTS* INNER OUTCA INNf • OLWFt 


#.080 

36.086 

95.461 

10.200 

18.676 

15.76* 

16.461 

* e . 3 tt 

37.031 

0. 

0 , 

0 . 50 © 

*2.2*8 

* 1.110 

-1.166 

-2.91* 

T.022 

8.68 1 

32.777 

11. C 31 

c. 

0 . 

to . COO 

* 1.062 

* 1 , 411 : 

-0.213 

-0. Tft 1 

6.2*5 

0,08? 

31. *03 

31. ESC 

0. 

9* 

80.500 

* 1 . 6*1 

*1.186 

1.266 

0. *2* 

8.692 

0.4 75 

34.5*3 

32.70* 

c. 

ft# 

11.000 

* 1.251 

* 0.111 

3.660 

3.152 

0.220 

10.131 

35.0<C 

3* .613 

0. 

c* 

i 1 . 673 

40 . 41 * 

90.41* 

5.31* 

*. 153 

1O.3T0 

11, «0t 

35.612 

31. *13 

0 . 

c* 

13.500 

* 0.511 

*8.070 

5.6*1 

5. 3*0 

15,037 

17.016 

34 . 3*6 

37. *70 

c. 

c* 

83.009 

* 2 . 5*5 

*7. 1 10 

ft . 331 

*•2 7* 

13.465 

14.476 

33.012 

I*. 360 

0. 

0* 

85.500 

* 6.570 

5 6 . 1*6 

-7.6*4 

-1.030 

1C. 155 

11.020 

34.0*6 

32.3*7 

s. 

c* 


IW. HtA» I8ANSEC8 «ATf 

•031 f ION MO* CLANS TO NAIL 

vmm atu vfr so ft see 

COMMUM 

IIUMier NADIA f TON CCftVFCItON 

8 MCMCS 

INNF A OUTER INNER CtltM 


All At 
•SSI! ION 

wmmfism 

•ftCMAAV 

MSMI 


HEAT !»««»»»*» 
If, IRANSfttAATtCN 
At" IN TM NALL 
*TU W« SFC ft* 

SO ft VAIL S0«* AC* 

I AREA CLTI • 

0 * 0 . 

0 . 0 . 

0 * 0 , 

0. c, 

0 . 9 . 

. 6 . 0 . 

0 , 0 * 

0 . 

0 . 


e. 

e. 


3 



o 


16.000 

62, 222 

62.102 

-1.606 -».**|4 

10.126 

11.172 

! ft » 2. C 6 

11.811 

16.600 

66.011 

6*. 666 

-0.266 -1.1 20 

11.661 

12.6 28 

16.881 

}ft. C06 

If. 000 

61.0*1 

60.626 

t. 161 

0 . 280 

11. 120 

16.280 

*1. JftP 

ir.uft 

19.500 

62.622 

6 2*6 1* 

6,826 

6.62C 

12.011 

18.118 

18.02? 

16.C22 

21.000 

16. 6V r 

*6.6 |6 

8.061 

2.686 

17.212 

11.118 

11.26ft 

50.268 

21.600 

*0.266 

*C. 152 

-1.668 -2.602 

8. 210 

6 . *1* 

22.201 

21.4*2 

22. COO 

26.122 

26.202 

-0.602 -0.161 

1.111 

6.626 

21.028 

21.186 

22.600 

26.06* 

2*. *16 

0.262 -0.166 

6.011 

6.606 

21 .12* 

72.26* 

2 S» 000 

26.66? 

26,666 

1.666 

1.101 

6.126 

6.122 

26.C81 

22 .1*8 

22.000 

10 .0*6 

10.666 

6. Ho 

6,020 

2 .68ft 

2.260 

6.116 

8.71C 

22 . 600 

6.666 

8.66 1 

-6.061 -6.16C 

2.621 

2.281 

1.16 6 

2 .??{ 

26.000 

2.062 

B.42ft 

-2.1.6 -2. 68* 

2.120 

2.811 

2 .1*8 

i.cei 

26.600 

2.266 

8.218 

-2.»1Q -2.281 

1. 166 

2.818 

7,28? 

1.282 

26.000 

2.62* 

e.ti6 

•2.011 -t,*ftl 

1.118 

2.121 

7.18ft 

1.6H 

J2. 200 

6.0 26 

6. i?l 

0.8 16 -0. 20 6 

6.710 

6.621 

7.8*0 

1.11C 

62. 600 

6 .6*6 

6.022 

0.061 -1.188 

6.226 

6.812 

1,022 

o. t»i 


C, 0. 

0 . 0 . 

0 . 0 . 

0 . 0 . 

e, «. 

0 . 0 . 

c. a, 

o. a. 

c. c. 

0. 0. 

0 . c. 

c. o. 

C. f. 

0 . c. 

0. 0, 

C. 0. 


MEAT TRANSEf# 8A«*HFfFRi 


4X161 

f NISS1 91 IT 

fl*8F 

7H.8- 

eoct I nc 


MALL TEMPERA TM*f S 


*0*11 10.1 

m 41*61 

iNUfcSi ft 

EftffCf IVlNtSS 


DEC E 


*808 


82U *£« 







comers ssra 


SC 71 SEC 



801686 IIC 

ACItH 

OiStMASCE 









INC HIS 



INM 8 «4tl 

OUTER MALI 

I NIC# 

CUTE# 

!M»f* 

CLTE * 

9.000 

C.129 

52.506 

0. 

0. 

*261,6 

1265.2 

772ft. 6 

22 72.? 

9. 500 

0.S1C 

59.186 

(1.289 

0.288 

12*1, 4 

1229. C 

1885.6 

192*. 2 

10.000 

0.110 

59.186 

0.229 

0.72* 

1882.9 

1881.7 

19C6.3 

1949.* 

10. *00 

e. no 

59.186 

0.67? 

0.671 

2C1S.C 

2032.7 

1925.5 

1920,4 

11.000 

0. *10 

59.186 

0.528 

0.52? 

2725. 1 

22 75.C 

1952.5 

7001,6 

11.62ft 

0.590 

59.186 

0.501 

0.500 

2*25.4 

2611.5 

2015.9 

7664. 5 

1 1.500 

0.561 

26.166 

O.J22 

0.526 

2961,5 

2961.5 

2252.0 

2291,4 

15.000 

0. 58? 

66,066 

0, 125 

0.32* 

29%.* 

2949.8 

2154.8 

21 9*. 9 

15.500 

0.11? 

66.*22 

0.80* 

0.802 

1712.8 

1711. C 

2CC4.8 

7046.7 

16.000 

0.596 

68.66* 

0, 761 

0.760 

1889. 2 

1888.5 

2044.6 

7CA8.4 

16.900 

0,59ft 

20.567 

0.706 

0.206 

1996.1 

1541. J 

2076.2 

2121.4 

11.000 

0.*9* 

26.16? 

0.616 

0.615 

2 266.2 

2268.6 

2I4C.4 

71*6.9 

15.500 

0. *91 

71.509 

0. *97 

0.196 

28 28.7 

2884. 2 

22H.3 

71*2.6 

71.000 

0.601 

lift. Oft? 

0.119 

0.1*8 

2820.8 

2E22.2 

2101.1 

2140.1 

21.500 

0.621 

61.191 

0.816 

0.816 

1580.2 

1528. C 

1250.4 

1 ?»6.9 

22.000 

0.626 

62.626 

0.752 

0.252 

1216. 1 

1215.1 

1740.4 

1247.4 

72. 500 

0.676 

62.10* 

0. 216 

C.7I6 

17SI.6 

1291.2 

1768.1 

I8C6.7 

2*. 000 

0.626 

62.15ft? 

0.656 

0.656 

1922.5 

1522.6 

1282.6 

1826.8 

22.000 

0.666 

20.21? 

0.55ft 

0.355 

216ft,* 

2152.2 

1*66.1 

1*45.3 

22.500 

0.666 

16.5*2 

0,951 

0.978 

121). 2 

ll*t.l 

1486.8 

1454.6 

28.000 

0.6ft* 

16. n? 

0.861 

0.886 

1121.1 

1294.5 

1521.0 

1489.0 

28.500 

0.66ft 

1ft. 07K 

0.816 

0.816 

1180.6 

1*57.9 

1543.0 

15 1C. 9 

25. 000 

0.66ft 

16.051 

0.781 

0.801 

1421.2 

14CI.8 

1558.0 

1525.9 

52. 200 

0.629 

12.1ft* 

0.661 

0.6 28 

1479 .0 

161*. f 

16*4.2 

1661.2 

52. 800 

0.629 

11.97* 

0.556 

0.620 

1682.1 

1615.2 

16 88.6 

1681.4 


000300030003000*3 
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ilBFTC CUR LIST 


PROGRAM FOR THE ANALYSIS OF A N CLAROOZOi 

ANNULAR COMBUSTOR CLAR0030 

CIARQ040 

PROGRAM CLARE. THIS IS THE MAIN PROGRAM. IT READS IN DATA, WORKS OUT CLAROC50 
REFERENCE QUANTITIES, AND DIRECTS CONTROL THROUGH THE SUBROUTINES CLAR0060 
IN THE APPROPRIATE SEQUENCE. ' CLAR0070 

f.i AROOBO 


THIS PROGRAM CONTAINS THE FOLLOWING COMMON BLOCKS 
83, S12, 813, 8126, B168, 8178, 812678 


CLAROCRQ 
CLAR0090 1 
CLAROIOO 
CLAROliO I 

COMMON/ 83 /M, NCASE, INPUT, ITAP£,FGIZ( 45) CLAR0120I 

COMMON/B12/ XU20),CA(12O),CBI12O1,SA(5O),$B(5O), CLAR0130 

1 NRECT ,NXDI F,NDIFF, NSNOUT , NXDIFl,NXDIF2,NX0IFA,NX0IFB ,NTU8E • CLAROIAO j 

2 PRESIN, BLOCK 1 50 1 * ABLOCK, SHAPEHI 2,50), CLAR0150 

3 VPDAT A { 15 ) »RDATA ( 15 ) ,NUPR, AROTAl 200 1 » XLNOTA 1 20 )*EFOTA( 200) «NCOF« CLARO160 
A NY OF » NZDF » E10T A, NXDF, AREF, WIDTH!, CLAR0170 

5XMACH »RH0REF»EFDT(3) CLAR0180 

COKMON/B1 3/ AREA1,NX01FC»NY0I FB,NZ0IF8*NC0IFB,E1DTAB CLAR0190 

1 »XLNOT B (20)»cFOTABl2OO),ARDTAB(2OG) , CLAR0200 

1 NWALLl ,NWALL2 CLAR0210 

COMMD'./Bi 6/COS (20, 15) ,DPHS ( 20, 15) ,FLCV, IH, NA8XC45I CLAR0220 

1 *NSP( 20) ,GXIS( 20 , 15) ,K4,K6, FIT, FIPHI, FIPSI, FIAfFITAUtFIOtFIENTH CLAR0230 

2 tSHAFST, FIFTPR, LCNFL* LCAKILCLAR0240 

3 wLCANi jtlCF If I.* l( r-TL t L r PRTL,5ETA,ASW, FFII <451 ,AH8(3MF,NSCIK*P (201 CLASS? 50 

4, LCPTAt,PAPR2,NHTUt50) CLAR0260 

5 , AF23 A ( 3) , AF23SI 3) ,XAF23AC 3) , XAF23BC 3 ) CLAR0270 

CCMMON/Ri26/AF2,TAN1A,TAN10,PANIA,PAN1B, AFA, AF8 »PRE0M,$TAGTCLARO28O 

1 ,I3L,STPREF,PNRTA,PNRT8,OPHSNT,OOMLOS CLAR0290 

COMMON/ 81 68/ A AN A (45 ) , AANBC45 I#CCA( 45I,CC8( 45)t FHCR,NLAST CLAR0300 

l ,KANHET ,LANHET *PERCO» THIKFT CLAR0310 

2 ,0ANA(A5) * DANS (45 ) CLAR0320 

COMMON/ B 178/ OFT (45) CLAR0330 

COMMON/ 81 2678/ JT APE , IPRINT CLAR0340 

CLAR0350 

FORMAT STATEMENTS CLAR0360 

CLAR0370 

1 FORMAT (2X7E10.3) CLAR0380 

CLAR0390 

M-l CLAR0400 

CALL INPUT! CLAR0410 

CALL INPUT2 CLAR0420 

ICHNGE=»0 CLAR0430 

I 0FLOW-1 CLAR0440 

NDIFF=NOI FF-100 CLAR0450 

IF (NDIFF.GE.O) GO TO 200 CLAR0460 

IDFLQW=0 CLAR0470 

N0IFF=FDIFF+1OO CLAR0480| 

0 IPRI NU= IPRINT CLAR0490 

CALL 0 1 FLOW » CLAR0500 

IPRINT=IPRINU CLAR051C 

IFUBL.EQ.O) GO TO 500 CLAR052C? 

PI RICA L CATA REQUIRED TO CALCULATE DIFFUSER PERFORMANCE STATIONS 2-4CLAR0530 

IF IMQD INDI FF» 10) .NE*2.0R.NWALL1#EQ<»NWALL2)GOT0105 CLAR054G 

1*NXDIFC CLAR055C 

IF (NXDF.GE.I ) I* NX OF CLAR0560 

OUM*NXCF CLAR057C 

NXDF-NXQIFC CLAR058C 

CLAR0590 


l, ft ul» fa rifniuy vr in 

COMMON/8168/ AANA145 J , AANB(4! 
1 ,KANHET ,LANH£T ,PERCO, THIKFT 
2 ,0ANA(A5) * DAN8 (45 ) 

COMMON/ 0178/ OFT (45) 
COMMON/812678/ JT APE , IPRINT 

FORMAT STATEMENTS 

1 FORMAT I2X7E10.3) 

M-l 

CALL INPUT1 
CALL INPUT2 
I CHNGOO 
I DFLOW-l 
NDIFF*NOI FF-iOO 
IF (NDIFF.GE.O) GO TO 200 
IDFL0W=0 
N0IFF=FD|FF+1OO 
0 I PRI NU= IPRINT 
CALL 0 I FLOW 
I PRI NT=IPRINU 
IFUBL.EQ.O) GO TO 500 


0) GO TO 200 


IFUBL.EQ.O) GO TO 500 

EMPIRICAL CATA REQUIRED TO CALCULATE DIFFUSER PERFORM, 
IF IMO 01 NO IFF, 10) .NE.2.0R.NWALL1*EQ<»NWALL2)GOT0105 
I-NXDIFC 

1 F (NXDF.GE.I I I- NX OF 

OUM»NXCF 

NXDF*NXOIFC 

nxoifc*qum 


non 


m 


DO 106 J*1,I 
DUM=ARCTAt JI 
ARDTAt Jl*ARQTABt J) 

106 ARDTABCJI-DUR 
I=NYD IFR 

IFtNYDF.GE.il I* NY OF 
OUMaNYCF 
NYDF-NYDIFB 
NYOIFBsOUM 

00 107 J-1,I 
DUM*EFDTA { Jl 
EFOTAt JI*£FDTA8UI 

107 EFDTAB t JI*DUM 
I=NZDIFB 

lFtNZDF.GE.il I*NZDF 

OUM=NZCF 

NZDF-NZDIFB 

NZOI F B = QUM 

DO 10B J*1,I 

DUM=XLNDT A ( J) 

XLNDTA t J) =XLNDTB l J I 

108 XLNOTB t J) «DUM 
DUM=NCDF 
NCDF=NCDIFB 
NCOI FB=DUH 
ICHNGE»1 

105 KA)MHET=0 
LCMFL=0 
CALL AIR1 
FI TAU*.05 

IF(IBL.EQ.O) GO TO 500 
IFtLANNET.EQ.2l GO TO 400 
CALLHEAT1 

LANHET - 1 IF HEAT TRANSFER TO ANNULUS AIR IS TO BE CONSIDERED 

IF CLANHET .NE.l IG0T0112 
CALLAIRFLO 

IF(IBL.EQ.O) GO TO 500 
CALLHEATl 
112 CAILHEAT2 

400 IFUDFLOW.EO.il CALL 0IFLW2 
500 IF (M* EC.NCASEI STOP 
NssM+l 

IFUCHNGE.EQ.OI GO TO 600 

1 = NX 0 1 F C 

IFtNXDF.GE.il 1=*NXDF 
DUM=NXDF 
NXDF*NXDIFC 
NXDIFC*OUM 
00 606 J*l,I 
DUM=ARCTAtJI 
ARDTAt JI*AROTABt«J I 
606 AROTABt JI«DUH 
I=NYOIFB 

IFtNYDF.GE.il I* NY OF 

DUM»NYCF 

NYDF*NYDIFB 

NYD1 FB»OUM 

DO 60’ J*i,I 

0UM*£F0TA{ Jl 


CLAR0600 

CIAR0610 

CLAR0620 

CLAR0630 

CLAR0540 

CLAR0650 

CLAR0660 • 

CLAR0670 

CLARO6B0 

CLAR0690 

CLAR0700 

CLAR0710 

CLAR0720 

CLAR0730 

CLAR0740 

CLAR0750 

CLAR0760 

CLAR0770 

CLAR0780 

CLAR079C 

CLAR0800 

CLAR0810 

CLAR0820 

CLAR0830 j 

CLAR084C 

CLAR085C 

CLAR0860 

CLAR0870 

CLAR0880 

CIAR0890 

CLARC900 

CLAR0910 

CLARC920 

CIARC’930 

CLAR0940 

CLAR095C 

CLAR096C 

CLAR0970 

CLAR098C 

CLAR099O 

CLAR1C00 

CIAR1010 

CLAR1020 

CLAR1030 

CLAR1C40 

CLAR1050 

CLAR1060 

CLAR1070 

CLAR108C 

CLAR1G9C 

CLAR1100 

CLAR1110 

CLAR1120 

CLAR113C 

CLAR1140 

CLAR1150 

CLAR1160 

CLARI.170 

CLAR1180 

CLAR1190 

CLAR1200 
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SIBFTC BKDA LIST 
BLOCK CAT A 

S U 6 R 


OUTINE BLOCK 0 A T A 


3 U C K U U I i IN C S I. U v <\ U»|« 

THIS SUBROUTINE FILLS IN RECOMMENDEO STARTING VALUES FOR A 
NUCPER OF VARIABLES. SOKE OF THESE MAY BE OVER-WRITTEN, 

IF CBS I RED, VIA NAMELIST INPUTS. 

THIS SUPRFUTHNE USES COMMON BLOCKS 
616*5, H167R.R1267B 


, ou. B1,B3,B12,B16,B17,818,B68,B167 

616*5, B167R,R12678 
COMMON STATEMENTS 

#•* j*- ttu ts * < lut i H ft 


ns 


8KDA0C01 
BK0A0Q02 
BK0A0C03 
8XDA0C04 
BKOAOOOS 
BK0A0C06 
8KDACC0? 
BKOAOOOS 
BK0ACC09 
BKDA001C 
NHT1,NHT2 BKOAOC11 

trnt tu t _ TDimtnm <9 



CGKM 0 N/H 1 8 / ABSW, EMW » EMC, NLUM, 

1 , X 1 FCA ( 45 ) ,X 1 FCB( 45 )» C 0 NDFT,TCA$A( 45 ) , 

2 to? *XF I LMZ , TABTFTClOJfTABEFTI 1 C 0 )»TABPF 

3 »NC 00 t » NUMAX 1 ,NUMAX 2 

CCMMON/t’uR/AFANA ( 45 )»AFANB( 45 ),AFFTt, 45 ), AFPRZ*C 2 A( 45 ) «C 2 BC 45 ) 

2 *AF 5 YP»FARFT( 45 ) , DENANAf 45 ) , DENANBC 45 ) 

3 »$AFTRA( 45 )»SAFTRB( 45 )» QTRA( 45 ) ,QTRB ( 45 ) *R£AAN ( 45 ) ,RE 8 AN( 45 ) 

4 ,TWAt 451 ,TWB{ 45 ) 

CCf‘MON/B 16 A/AANA( 45 ), AANB( 45 ) * CCA ( 45 ) * CCB( 45 ) » FHCR»NLA$T 
1 ,KANHET iLANHET *PERCQ» THIKFT 
2 » D A'l A ( 4 5 1 * OANB (45 1 
CCrKON/Pl 2678 / JT APE ,IPRINT 

CCfT.ON/tU/KTAPE, X INT, Pi 4 ,NWH, NG, FFB( 501 ,FTA 11201 

1 ,FTM 120 ) ,NBLACE,NUMSW, DSWLOU, OSWLIN, 

ITCATAiSO) ,TCATB( 50 )»HAB( 50 ) 

CG. v M 0 N/B 67 /DENFT (451 • EK 17 , EK 19 , EK 20 , EK 16 - - 

1 , C( 50 )»GXIA{ 50 )*K, WUJ C 50 } 6 KDA 0 C 27 

CC'”GN/ 32 / RAD( 16 )»DELTA( 2 , 50 ),E’E 1 ( 2 ),UJ( 15 ) ,THA, THB, THS*PR£S (50 1 ,BKDAC 028 
iNi,m„ltoAY, 7 ZR,ZZGAMA,fiETA 1 .,B£TA 2 ,XMVA,XMVB,XMVS, ZZCP,IOIF BKDA 0029 

l»KSfP »FLAR£A( 5 G) * AR£A( 50 ) BK 0 A 0 C 30 

cm MHN/R 13 / AREAI,NXDIFC,NYOIFB,NZOIFB,NCOIFB,E 1 DTA 9 

l , XLNDT P ( 20 ) , EFCT A 8 ( 200 ) * ARDT A 8 ( 2 GC ) , 

1 NWALL 1 *NWALL 2 

air .‘* 0 N/* 3 /M,NCASE, INPUf , ITAPE,FGIZ( 45 ) 

CCMM0N/H12/ X{ 120), CA( 120),CB( 120 I* SAC 50 1, SB ( SOI , 

1 NPcCT fNXOIFfNOIFF, NSNCUT , NXDIF I, NXDIF 2 ,NX 0 I FA, NXDIFB ,NTU 8 E , 

2 PI* lS I n t BLOCK ( 50 ), ABLOCK, SHAPEHC 2 , 50 ), 

3 VP DAT A (15 1 ,RDATA( 15 ) » NUPR, ARDTAC 2 C 0 ) , XLNDTA 1 20 ), EFOTA ( 200 ) ,NCOF 
4 NYDF , NZOF » £ 1 DTA, NX OF, ARE F, WIDTH I, 

5 XMACH ,RH 0 REF,EFDT( 3 ) 

r r v* ti i -in 


BKOAOOI4 
8K0A00I5 
BKDA0016 
BKOA0017 
BKDA0018 
BKDA0019 
BK0A0020 
BKDA0C21 
BKDAOO 22 
8K0A0C23 
BKDA0024 
8KDA0025 
8K0A0026 


cr:-*::o 

1 ,NSP( "» 

2 ,SHAFS1 


, RHuRfcr,cFuTl3l 

• /H16 /COS (20, 15), DPHS (20, 15), FLCV, I H, NABX(45) 

” ? t'),GXIS(20,15)»K4,K6,FIT,FIPHI,FIPSl,FIA*FITAU,FIO,FIENTH 


BKDA0029 

BK0A0C30 

BKDA0C31 

BKCA0032 

BK0A0C33 

BKDA0C34 

BK0A0C35 

8K0A0036 

BK0A0037 

BKDA0038 

BKDA0039 

BKDA0040 I 

BK0A0041 

BKDA0042 


2 ,SHAF SI , FIFTPR, LCMFL*LC 

3 ,LCA.’H,ICFTEL,LCFTL, LCPRTL, BETA, ASW, FFIZ ( 45 ) ,AHOOME,N SCOOP (20) 

4 ,ICPTAL,PAFRZ,NHTU(50) 

5,Ar?3M3) ,AF23B(3),XAF23A(3),XAF23B(3) 

Ct'W:0\/B17/ XHU ( 50 ) , DXHU ( 50 ) , E FC ( 2 ) , NEF, STEP, JKSNI 50 ,NSH 

CC i’>''.Q\/ 81 S7/GASC * GRAVC, G JOULE, IHJ ( 50 ) ,XH{ 50 ) ,NH 
CO’ 1UN/SI678/NSHCP,XCP(45),AFT(45),PI 

1 , NKH (501 ,KJSN{45,6)tHAU( 50),CFTA{ 45), CFTB( 45) ,NAB( 501 ,NCOOEA(45) 

2 , NCH0 6P (45 1 »TZ 

CCMM0N/B126/ AF2, TANIA, TANI0,PAN1A,PAN18, 

1 ,IBL,STP«£F,PNRTA,PNRTB,DPHSNT,OOMLOS 
DATA STAT cHFNTS 

DZTA ITAPt,JTAPE,KTAPn?. 0 I,PI4, GA5C, GRAVC, GJOULE, TZ/5 
10.7854,53,3, 32. 18, 778., 459, 7/ 

DATA K4 , K6 ,NCASE , NCOOL,NG, NH, NLUM,NRECT , NSH,N SNOUT ,N,nkb*,n..kM , » 

1 NWH, NXOI F , INPUT/ 3 # 0, 1,3*0, 1,7*0/ BKDA0058 

DATA AfiSW, CONDFT, EMC, EMW, FHCR,FICV,SHAFST, STEP, THIKFT,BKDA0059 


iu,ricnin m'unvi.tc 

FIFTPR, LCMFL»LC ANILBK0A0C43 

8KDA0044 
BKDA0045 
8K0A0C46 
BKDA0047 
BKDA0048 
BKDA0049 
BKDA0050 
BKDA0C51 

AFA,AFB,PREDM,STAGTBKDA0052 

BKDA0053 
8KDA0054 
,8,5,3,14159, BKDA0055 
BKDA0C56 

,NWALL1 , NWALL2 , BKDA0057 

oirniAflcfl 



1 T01TW1 »TOLTW2» XF ILMZ»XlNT/.85» 15.,. 8, .85 » . 17, 18540. , . 5 , .25, 

2*16-6 « 1* , l* ,3* 5, 100*/ 

DATA SHAPEHI 1 1 1) »$HAP£H( 2,11/1.4, 1*4/, ( BLOCK { 1 It 1*2* 501/49*0./ 
DATA t TWA { I ) »THB ( 1 1 , 1*1, 451/90*2500*/ 

OATA NU«AXl,NUWAX2,LCANIL,LCFTL,f IO # FIA*FITAU*LCPTAL i LCI>RTL»FIT > 

1 LCFTEL»F JENTH, LCANL, FIPS I, F IFTPR/ 

1 20t 20, 50, 50, .01, .5, .3, 5, 25, .01, 25, 1., 100, .01,1.. 

1 *LCMFl/Q/ 

1 ,F IPH I /«01/ 

OATA KANH6T/0/ , t NABl J! ,4-1 , 501 /5©*0/, 

1 BETA, ASH/50., O./.AREF/O*/, 

DATA I CIF/O/ 

DATA ( (KJSNIK, IX), IX-l, 6 ),K«1, 451/270*0/ 

DATA l NCQOEA (K 1, NCODEfltK ) »K«1, 45 1/90*0/* (NHHIJ l,J*i» 501/50*1/ 

1 iNSMCP/O/ 

OATA (C(K 1 »K*1 ,501/50*0*/ 

DATA (CTRA(K) , QTRBIK 1 »K* 1, 45 )/90*Gi/ 

DATA tSAFTRAUU,SAFTRBtX),K*l,45 1/90*0./ 

DATA(AF23A(I),AF238in,XAF23Am,XAF238(n, 1-1,31/12*0./ 
DATA<HABU),J*1» 50 1/50*0./ 

DATA EK16, WIDTH!, STAOT/O., 12., 1./ 

OATA (EFDT{J),J»1, 31/3*1./ 

DATA NUMSW, NBLAQE* D0ML0$»P£RC0/0, 8,0.,0./ 

DATA HSEP/1.9/ 

DATA PAFRZ/.l/ 

0ATAAF2/1 »/ 

DATAIBL/1/ 

1,1 PRINT/O/ 

END 
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tlBMAR 

REMOV 



ENTRY 

«UNOl . 


ENTRY 

•UNQ2 - 


ENTRY 

•UNU3 . 


ENTRY 

• UN04 


ENTRY 

• UN07 


ENTRY 

• UN09 


ENTRY 

• UN10 


ENTRY 

• UN11 


ENTRY 

• UN12 


ENTRY 

• UN 13 


ENTRY 

• UN14 


ENTRY 

• UN19 


ENTRY 

.UN20 


ENTRY 

• UN21 


ENTRY 

• UN22 


ENTRY 

• UN23 


ENTRY 

• UN24 

•UN01. 

PZE 

0 

.UN02. 

P7E 

» *•**«*• 

0 

•UNQ3* 

PZE 

0 

.UN04. 

PZE 

0 

•UN07* 

pze 

0 

,.UN09. 

PZE 

0 

.UN10. 

PIE 

0 

.Nil. 

PZE 

0 

.U«l 2. 

PIE 

0 

•UN13* 

PZE 

0 

•UN14. 

PIE 

0 

.UN19. 

PIE 

0 

.UN20. 

PIE 

0 

•UN21* 

PZE 

0 

•UN22. 

PIE 

0 

• UN23. 

PZE 

0 

•UN24# 

PZE 

0 


END 



RIM 0001 
REM 0002 
REM 0003 
RIM 0004 
REM 0005 
REM 0C07 
REM 000ft 
REM 0009 
RIM 0010 
REM OCll 
REM 0012 
REM 0013 
REM 0014 
REM 0015 
REM 0016 
REM 0017 
REM 0018 
REM 0019 
REM 0020 
REM 0021 
REM 0022 
REM 0023 
REM 0025 
REM 0026 
REM 0027 
REM 0028 
REM 0029 
REM 0030 
REM 0031 
REM 0032 
REM 0033 
REM 0034 
REM 0035 
REM 0036 
REM 0037 



C"* C* Cl ci ci c> 


UBFTC IN P? 


SUBROUTINE INPUT1 


SUBROUTINE 1NPUU 

THIS SUBROUTINE READS AND WRITES OUT THE FIXED RUN DATA 

THIS SUBROUTINE USES THE FOLLOWING COMMON BLOCKS 

81 ,8 12»B13,bl6*B 17 ,818,8126, B 1 67 » C 168* B 178* 81678*612678 

ALSO B3 (SHARED WITH CLARE I 


COMMON /Bl/KTAPt, XINT, PI4,NWH, NC,FFB( 50) ,FTA U20) 

1 ,PTB( 120) * NBLACEt NUMSWt DSWLOU, DSWIIN, 

1TCATAI50) ,TCATe(50),HAB(S0) 

CCMH0N7B3/MtNCASe* INPUT, ITAPE, F6IZ ( 45 ) 

COMMON /B1 2/ X( i20),CAU20),CB( 120 >,SA( 50), $B( 50) , 
i NRECT » NXDIF»ND IFF* NSNGUT , NXClFl»NXDtF2,NXOIFA*NXDIFB»NTUB£, INP1001? 

2 PRESIN, 8LUCK ( 50 ) » A BLOCK, SHAPEHi 2,50), INP100I8 

3 VPOATA { 15 ) ,ROATA( 15 ) , NUPR, AR0TA( 2C0) ,XLNOTA ( 20 )#EFDTA (20Q) ,NCDF, INP10019 
4NYDF ,NZDF »E10TA, NXOF, ARE F, WIDTH!, INP10C20 

5XMACH,RHUREF»EF0T(3) INP10C21 

COMMON/ 813/ AREA! ,NXDIFCfNYCIFB,N20IFB,NCDIFB,ElOTAB INP10022 

l ,XLNDTB(20)fFFCTAB(200),ARDTAB(200) t IKPX0023 

1 NWALLl *NWALL2 I NP1Q024 

COMMON/ B 16/COS (20, 15 ) , OPH$( 20, 15) ,FICV, IH, NABXI45! INP10G25 

1 ,NSP(2C) ,GXIS(20i 15Tf K4 t K6f iITtfl:PHIf FIP$I,:JpIAff ITAU*FI0flI6NW INP10026 

2 ,SHAFST, FIFTPR, IXMFI#IXANIUNP1O027 

3 ,LCANL,LCFTEL, LCFTL,LCPRTL,BETA, ASW,FFI2I A5)*AHDOM6,NSCOOFI20I INP10028 

4 , LCPT Al * PAFRZ, N’HTU 1 50 ) INP10029 

5,AF23A(3) , AF?3B( 3) ,X AF23A( 3) *XAF238( 3) - INP10030 

COMMON/BIT/ XHU( 50), DXHUf 50), EFCC 2), NEF, STEP* JKSNI 50) ,NSH INP10031 

CGMM0N/B18/ABSW, EMW, EMC , NLUM, NHT1,NHT2 INP10032 

« yfEfiitAfit. rriMncf.tfiau^t.TDfttRUI! .TflLTHl .TOLTf NP1G033 


5> A l J J , Al*/ 3 El 3 I 5 i # a #»r soi a i - INP10030 

COMMON/BIT/ XHU( 50), DXHUt 50), EFCC 2), NEF, STEP* JKSNI 50) ,NSH INP10031 

COMMON /B1 8/A BSW,E MW »EM( , NLUM, NHT1,NHT2 INP10032 

1, XIFCAI45 ) ,X1FCB( 45 ), CONDFT, TCASAI45) , TCAS8C45) ,T0LTW1, TOLTI NP10033 

2W2,XFILMZ, TABTFT( 10 ),TA8EPTC 100), TABPFTI 10) ,NEFT,NPFT,NFORMl NP10034 

3,NC00L, NUMAXl,NUMAX2 INP10035 

C0KM0N/B1 26/ AF2, TANIA iTANIB* PAN l A, PAN IB, AFA,AFB#PREOM,STAO f 

1 ,IBL,STPREF, P>-« TT A, PNRTB* DPHSNT , OOMLOS 
COMMON / B1 67/ G ASt » GRAVE * SJOULE, IHJ( 50) ,XH| 505 ,NH 
C0MM0N/0168/ AANA (45), AANBI45 I, CCAI45) fCCBt 451 fFHCR*NLA$T 

1 , KANHET,LANHtT,PERCO,THIKFT 

2 »DANA (45) ,CANn(45) 

C0MM0N/B178. 0FT145 ) 

CCMM0N7B167fl/NSHCP,XCP(45),AFT(45),P! 

1 *NHI!l5C) »KJSN(45,6) , HAU ( 50 ) * CFTA( 45) * CF1 B( 45 ) ,NABl 50) ,NC00EA(45) 

2, NCOOEB(45),TZ 
CQMMGN/8 12678/ JTAPE .IPR1NT 

DIMENSION CA(60),DC(20),XINCH(120) 

NAMELIST DECLARATIONS 

NAM£LIST/FIXEOI/NCACE,NRECTtNG # NH,NWH,N$H,N$NOUT,NWAUl»NmU 
1 , INPUT ,K4|K6,NUMSW,NBLA0E 
1 , 1 PRI NT , NCCOL 

NAME LI ST/F IXEOR/XINT ,THIKFT,FLCV, FHCR, SHAFST, AF23A, AF23B,XAF23A, XA 
1F23B,A6SW,EHW,£MC, OOMLOS,CONDFT,XFILMZ,PERCO 
I, WI OTHl , EFOT 
2,0SWLCU,0SWUN,BETA 


rIHJ(50),XH(50),NH 

»CCA(45),CCB(45),FHCR,NLAST 


LjLjJuna.i nzaa w 
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FORMAT STATEMENTS 

1 FORMAT (7E10*3) 

4 FORMAT f 12A6) 

5 FORMAT < IX* 12A6////// ) 
8 FORMAT (5E 10*3,3151 


1 NP10C60 
I NP10Q61 
INP10062 
INP10063 
I NP10064 
1KP10065 
I NP10O66 


l*. FORMAT ( 


29X13C2H* )» IOHINPUT 0ATA13(2H *)//////37HOGEOINPiO067 


ANNULAR CO 


2 METRIC CONFIGURATION OF COMBUSTOR/ 1X36C IH**1 ) 

16 FORMAT ( 1H125X69HA NALYSIS OF A RECTANGULAR 
I COM8USTO R //////) 

1? FORMAT (IH128X63HA NALYSIS OF AN 
1M U S T 0 R //////) 

AXIA19X13C2H- ) » ISHDI AMETER INCHES13I2H -I I 

AX IAL9X7 ( 2H— ), 37HDI MENS ION FROM ARBITRARY DATUM INCHEI NP10074 

I NP1Q075 

PCSITI0N/7H FROM, 81X9HGEQMETRIC/ INP10076 

i 3H COMPRESSOR4X5HI MNER7X5HINNERI NP10C77 
OUTER ODME4X5HOUTER7X5HOUTER, 6X5HINPUT/ INP10078 


18 FORMAT C8H0 

19 FORMA TI8HO 
IS7(2H -)) 

20 FORMAT (11H 
1 

15X22H INNER DOME 


INP10O68 
I NP10069 
I NP10070 
INP10071 
IKP10072 
INP10073 


1 12H 01 SCHARGE5X6HCINP10079 

2ASING6X5HSN0UT2X2(3X9H0R FLAME ), 5X5HSN0UT7X6HCASING, 5X, 5HP0I NT/ INP10080 

1 9H INCHES21I NP1008L 

3X2 (3X9HTUBE WALL ) ♦ 28X , 6HNUMBER// ! INP10082 

21 FORMAT tlXF 10 »3»6Fl2»3f6Xf 13) INP10C83 

25 FORMAT (39H0THE COMBUSTOR HAS A CONSTANT HIDTiJ OF ,F7.3,3H IN) INP10084 
27 FORMAT (/////19H0MI5CEILANEOUS 0ATA/IXI8UH- )//16H HOLE RON NUMBER INP10O85 
1 13 »9DH IS CONSIDERED TO MARK THE END OF THE PRIMARY ZONE (WHICH ISINP10086 

2 TREATED AS A STIRRED RFACT0R)/54H THE FIRST HOLES ON THE FLAME- TUI NP10087 
3BE WALL ARE IN ROW N0.I3/10H FUEL OATA/UX19HLOWER HEATING VALUE 9X1 NP10088 
41H=F10.3,I2H BTU PER LBM/11X21HHYCR0GEN-CARB0N RATIG7X1H*F10*3/46HINP1O089 
5 FRACTION OF INLET AIRFLOW BYPASSING COMBUS iOR/IlX13HINN'£R ANNULUSI NP10C90 
616XF10.3/11X13HOUTER ANNULUS 16XF10*3/36H AXIAL POSITION AT WHICH TINP10091 
7HIS OCCURS/1 IX 13 WINNER ANNULUS 16XF 10 «3*7H INCHES/11X13H0UTER ANNULI NP10092 
8US16XF10.3 »7H 1NCHES/26H FLAME-TUBE WALL THICKNESS13X!H»F10.3,7H IINP10093 
9NCHE5/40H THERMAL CONDUCTIVITY OF WALL MATERIAL «F10*3,20H BTU PERINP10094 

1 FT HR DEG F/21H ABSORPTIVITY OF WALL18X1H«F10,3/19H EMISSIVITY 0FIKP1O095 

2 WALL2CXI H*FID*3/27H EMISSIVITY OF OUTER CASING12X1H*F10.3) IKP10096 

37 FORMAT (63H SINCE NCASE IS 2ER0, NONE OF THE MAJOR SUBROUTINES ARE INP10C97 

I ENTERED) INP10098 

50 FORMAT (1X//////29H CASES CONSIDERED IN THIS RUN/1X* 29C1H-I) INP10099 

51 FORMAT (1X//////38H MISCELLANEOUS DATA - DIFFUSER SECTION/ INP10100 

l IX ,38 ( IH- ) ) INP101O1 

52 FORMAT CIX//////37H MISCELLANEOUS DATA - AIRFLOW SECTICIi/ INP101O2 

11X»37 (1H-) ) 1 NP10103 

53 FORMAT l IX///// /43H MISCELLANEOUS DATA - HEAT TRANSFER SECTION/ INP10104 

11X,43(1H-)) INP101U5 

61 FORMAT (IX,I2,27H CASES ARE TO BE CONSIDERED) IAP10XO6 

62 FORMAT! IX, 26HT HE GEOMETRY IS DEFINED AT, 13 INP1O107 

1 ,23H GEOMETRIC INPUT POINTS) INP101D8 

64 FORMAT (1X,3A6,AI,26H ALTERED FROM CASE TO CASE) INP10109 

65 FORMAT (3BH THE DIFFUSER SECTION CONTAINS A SNOUT) INPlOliO 

66 FORMAT (46H THE DIFFUSER SECTION DOES NOT CONTAIN A SNOUT) INPlOlll 

67 FORMAT (12H INPUT POINT, I3,32H IS THE LAST STATION BEFORE THE ,A5INP10112 

1) INP101! 3 

68 FORMAT (53H DIFFUSION IS CONSIDERED TO END AT INPUT POINT NUMBER, INP10114 

113, INP10115 

18H IN THE ,A5, 8H ANNULUS ) IWP10116 

69 FORMAT (19H INPUT POINT NUMBER, I3,47H MARKS THE END OF THE 0IFFUSINP10117 

IING SECTION IN THE ,A5,8H ANNULUS) INP10118 

70 FORMAT (31H THE EMPIRICAL DATA TO BE USEO ,A6,5M THE , A5,14H IS SEINP10119 

IT NUMBER, 13) XNP10120 
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71 FORMAT <16H HOLE ROW NUMBER* I3,72H IS THE FIRST HOLE ROW IN THE FLAINP10121 


1 ME-TUBE WALL, AS OISTINCT FROM THE DOME) INP10122 

72 FORMAT C16H HOLE ROW NUMBER, 1 3, 93H IS CONSIDERED TO MARK THE END 0FIKP10123 
1 THE PRIMARY ZONE (WHICH IS CONSIDERED AS A STIRRED REACTOR) ) INP10124 

73 FORMAT (81H THE FRACTION OF AIR FLOWING THROUGH THE SECONDARY HOLESI NP10125 

1 INTO THE PRIMARY ZONE IS, F7.3) INP10126 

74 FORMAT (36H THE FLOW RESISTANCE IN THE SNOUT IS, F7.3,54H VELOCITY INP10127 

1 HEADS (BASEL ON CONDITIONS IN THE SNOUT LIP)) INPI0128 

75 FORMAT (42H FRACTION OF INLET AIR BYPASSING COMBUSTOR, INP10129 

1 IX/ 36X , 13HINNER INPI0130 

1 ANNULUS, F7 .3/36X, 13HCUTER ANNULUS, F7. 3/36H AXIAL POSITION AT WHICHIKP10131 

2 THIS CCCURS/35X , 14H INNER ANNULUS, F7.3, 5H IN / 35X.14H OUTER ANINP10132 

3NULUS.F7.3, 5H IN / ) INP10133 

76 FORMAT (10K FUEL DATA/10X,20H LOWER HEATING VALUE,3X,F8.1,12H BTU PINP10134 

1ER LBM/10X ,23H HYDROGEN/CARBON RATIO ,F8.3) INP10135 

77 FORMAT (41H FLAME TUBE WALL THICKNESS • .*F7.3,5H IN / INP10136 

1 41H THERMAL CONDUCTIVITY OF WALL MATERIAL. ..,F7.2,20H BTU PER FT INP10137 
2HR DEG F/ 41H ABSORPTIVITY OF FLAMETUBE WALL ,F7.3/ INP10138 

3 41H EMISSIVITY OF FLAMETUBE NALL ,F7.3/ INP10139 

4 41H EMISSIVITY OF OUTER CASING ,F7.3) INP10140 

78 FORMAT (24H THE CASINf TEMPERATURE ,A6, 10H SPECIFIED) INP10141 

79 FORMAT (14H FILM COOLING ,A6, 5H USED) IKP10142 

80 FORMAT (23H TRANSPIRATION COOLING ,A6, 5H USED) INP10143 

81 FORMAT (51H THE PERMEABILITY COEFFICIENT OF THE POROUS WALL IS, INP10144 

1E10.3, 6H SQ FT) INP10145 

87 FORMAT (74H THE FRACTION OF AIR FLOWING THROUGH THE SECONDARY HOLESINP10146 
1 THAT RECIRCULATES/51H INTO THE PRIMARY ZONE IS WORKED OUT IN THE INP10147 
2 PROGRAM) I NP10148 

90 FORMAT (19H1*** ERROR MESSAGE/38H0X( I ) WAS FOUND TO BE LESS THAN XINP10149 

1(1-1), I NP10150 

1 F7.3.50H INCHES ALONG THE COMBUSTOR. THIS IS NOT ALLOWED.) IKP10151 

97 FORMAT (46H1IF THERE IS NO SNOUT, NXDIF MUST BE SPECIFIED) INP10152 

98 FORMAT (43H1NG, NH, NWH, AND NSH MUST ALL BE SPECIFIED) INP10153 

I NP10154 

: OATA DECLARATION INP10155 

: I NP10156 

DATA DC(1 ) ,DC( 5) /19HPR0GRAM ROUTING IS ,19HFL0W CONDITIONS ARE/ INP10157 

DATA (CA( I ), I=7,8)/5HSN0UT, 5HD0ME / INP10158 

DATA ( CA( I ) , 1=9, 10 )/5H0UTER, 5H INNER/ INP10159 

OATA (CA( I ), I=11,12)/6HBEF0RE,6H AFTER/ INP1016C 

DATA (CA(I),I»13,15)/6H IS ,6HIS NOT , 6HCAN BE/ INP10161 

DATA NTEMP/O/ INP10162 

: I NP10163 

READ RUN IDENTIFICATION CARO INP10164 

INP10165 

READ(ITAPE,4) (DC( I), 1*9,20) INP10166 

: I NP10167 

I READ IN FIXED DATA, COMBUSTOR GEOMETRY, HOLE SPECIFICATIONS, LIMITS, IKP10168 

AND TOLERANCES INP10169 

I NP10170 

READ( IT APE, FIX ED I) INP10171 

IF (NG*NH*NWH*NSH • EO.O )G0T0198 INP10172 

IF(NWALL1.EQ.0)NWALL1*NRECT INP10173 

IF (NWALL2 • EQ.O )NWALL2*NRECT INP10174 

READ( ITAPE,1 ) ( XINCH( I),CA(I),SA(I),FTA( I ),FTB( I ) ,SB( I ) ,CB(I ) , I«1 .NINP10175 
1G) I KP10176 

READ( I TAPE, 8 ) (XH( J * ,HAB( J )*TCATA( J)»TCATB( J)*FFB( J)»NAB( J) ,NHH( J) , I NP10177 
1NHTU( J),J»1,NH) INP10178 

IF (TCATA( 1 ).NE.0« ) NTEMP-1 INP10179 

READ( ITAPE,FIXEDR) INP10180 

REAOIITAPE, LIMITS) INP10181 
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INP1018 

FILL IN DUMMY SNOUT COORDINATES INP1018 

I NP1018 
I NP1018 
INPI0I8 
INP1018 
INP10I8 
INP1018 
INP1019 
INP1019 
INPI019 
INP1019 
INPI019 
INPI019 
INP1019 
INP1019 


: WRITE OUT GEOMETRIC CONFIGURATION OF COMBUSTOR INP1019 

TNP1019 

IF (NRECT . EC. 1 ) WRITE! JTAPE, 17) INP1020 

IF (NRECT. EG.2) WRITE! JTAPE, 16) INP1020 

WRITE! JTAPE.5) ! DC! I )« 1=9# 20) INP1020 

WRITE! JTAPE, 14) INP1020 

WRITE (JTAPE, 62) NG INP1020 

IF(NRECT.EC.l) WRITE! JTAPE, 18) INP1020 

IF !NRECT . EC. 2) WRITE! JTAPE, 19) INP1020 

WRITE! JTAPE, 20) INP1020 

WRITE ! JTAPE, 21 ) !XINCH( I),CA(I),SA!I)«FTA! I ),FTB( I)«SB( I) ,CB(I ) «1 • INP1020 
11=1, NG) IKP1020 

IFINRECT.EQ.2) WRITE! JTAPE, 25) WIDTH1 INP1021 

INP1021 

C CONVERT UNITS INP1021 


INP1021 

IKP1021 

IKP1021 

INP1021 

INP1021 

TO 190 INP1021 

INP1021 

INP1022 

INP1022 

INP1022 

SNP1022 

INP1022 

INP1022 

INP1022 

INP1022 

INP1022 

INP1023 

INP1023 

INP1023 


C SELECT APPROPRIATE DATA FROM LIBRARY TAPE INP1023 

r INP1023 

CALLTAPE INP1023 

INP1023 

C CALCULATE GEOMETRIC PARAMETERS AND SELECT CALCULATION POINTS INP1023 

C INP1024 

CALLGECM INP1024 

DC'1316K=1 ,NLAST INP1024 

1316 FG!Z(K)»FFIZ(K) INP1024 

INP1024 

C WRITE OUT MISCELLANEOUS DATA INP1024 


ttMTHl=WI0THl/12. 
DC109 I =1 , NG 
X ! I) = XINCH(I )/ 12* 
IFU.EC.UGO TO 1085 
IF!X!I).LE.X(I-1))G0 
1085 CONTINUE 

CA(l)=CA(I)/12.0 
SA<I)=SA!I)/12.0 
FTA! I )«FTA ! I )/ 12*0 
FTB!I )«FTQ(I)/12.0 
S8(I )=SB( I ) / 1 2 • 0 
109 C8!I)=CB!I)/12.0 
00130 J=1,NH 
130 XH!J)=XH! JJ/12.0 
XINT«XINT/12.0 
THIKFT=THIKFT/12. 
STEP«STEP/12. 


IF(NXDIF.NE.O) GOTO 10 2 
001041=1, NG 

IF(SA(I)*EQ.O. ) GOTO 104 
NXDI F= 1-1 
G0TO102 
104 CONTINUE 

WRITE!JTAPE,97) 

102 NXZ=NXCIF+l 
D0103 I = NXZ ,50 

IF(SA(I).EO.O.)SA(I)*FTA( I) 
IF(SB(I).EG.O.)SB!I)=FTB(I) 

103 CONTINUE 
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WRITE! JTAPE, 51) 

IF (NSNCUT.EQ.il WRITE! JTAPE*65) 

IF (NSNCUT . NE • 1 ) WRITE ( JTAPE, 66 ) 

I F (NSNCUT • EQ. 1 ) WRITE! JT APE* 67) NXDIF.DAC7) 
IF(NSNCUT.NE.l) WRITE! JTAPE, 67) NXDIF.CA(fl) 
IF(NSNCUT.EQ.l) WRITE!JTAPE,68) NX0IF1,0A! 10) 
IF (NSNCUT .FC.l ) WRITE! JTAPE, 68) NX0IF2,0A(9) 
IF (NSNCUT . NE. 1 ) GO TO 990 
WRITE! JTAPE, 70) DAI 11 ) , 0A( 7 ) , NWALL1 
WRITE (JTAPE, 70) DA( 1 2 ) , DA (7) , NWALL2 
GO TO 991 

990 WRITE! JTAPE, 70) DA! 11 ) ,DA( 8) ,NWALL1 

991 CONTINUE 

WRITE ( JTAPE, 52 ) 

WRITE (JTAPE, 71) NWH 
WRITE! JTAPE, 72) NSH 
IF (K4.EQ.0) WRITE (JTAPE, 87) 

IF (K4.EQ.1) WRITE (JTAPE, 73 )SHAFST 
WRITE! JTAPE, 74) DOMLOS 
DO 1995 JL=1,3 


IF(AF23A(JL)*AF23B(JL).GT .0. ) WRITE! JTAPE, 75 )AF23A(JL ) , AF23B! JL) , 
1XAF23A (JL),XAF23B(JL) 

XAF23 A ( JL )=XAF23A( JL )/12. 

1995 XAF23R!JL)=XAF23B(JL)/12. 

WRITE! JTAPE, 76) FLCV, FHCR 

WRITE ( JT APE, 53 ) 

THIKFT=THIKFT*12. 

WRITE (JTAPE, 77) TH IK FT, CONDFT , ABSW, EHW, EMC 
THIKFT=THIKFT/12. 

IF(NTEPP.EO.l) GO TO 992 
WRITE ( JTAPE, 78 ) DA ( 14 ) 

GO TO 993 

992 WRITE ( JTAPE, 78 ) DA(13) 

993 IF (NCCCL. EQ. 1) GO TO 1990 
WRITE! JTAPE, 79) DA(14) 

GO TO 1991 

1990 WRITE (JTAPE, 79) DA(15) 

1991 IF (NCOCL. EQ.2) GO TO 1992 
WRITE! JTAPE, 80) DA(14) 

GO TO 1993 

1992 WRITE (JTAPE, 80 ) DA ( 15 ) 

WRITE (JTAPE, 81) PERCO 

1993 CONTINUE 

IF(IPRINT.EQ.l) 

1 WRITE (6 .FIXED I ) 

IF(IPRINT.EQ.l) 
l WRITE (6 ,F I XEDR ) 

IF (I PRINT .EQ.l ) 

1WRITE(JTAPE, LIMITS) 

WRITE (JTAPE, 50) 

WRITE (JTAPE, 61) NCASE 
IF (NCASE. EQ.O) WRITE! JTAPE, 37) 

IF (INPUT. EQ. 1) WRITE (JTAPE, 64) ( LC( I ) , I-l, 4 ) 


INP10246 
I NP10247 
I NP10248 
I NP10249 
I NP10250 
I NP10251 
I NP10252 
I NP10253 
I NP10254 
I NP10255 
I NP10256 
I NP10257 
I NP10258 
I NP10259 
INP10260 
INP10261 
I NP10262 
INP10263 
I NP1 0264 
I NP10265 
I NP10266 
INP10267 
INP10268 
I NP10269 
1 NPI0270 
INP10271 
INP1 272 
I NP1 273 
I NP10274 
I NP10275 
I NP10276 
INP10277 
I NP10278 
I NP10279 
I NP10280 
I NP10281 
I NP10282 
I NP1C283 
INP10284 
I NP10285 
I NP10286 
I NP10287 
I NP10288 
I NP10289 
INP10290 
INP10291 
I NP10292 
I NP10293 
I NP10294 
I NP10295 
I NP10296 
I NP10297 
I NP10298 
I NP10299 
INP10300 
INP10301 
I NP10302 
INP10303 
I NP10304 
INP10305 
INP10306 


123 


IF(INPUT.EO.O) WRITE! JTAPE»64) ( DC! I ) • 1*5. 8) INP10307 

1 KP10308 

RETURN I NP10309 

190 WRITE (JT APE #90 )X( I ) INP10310 

STOP INP10311 

198 WRITE (4TAPE«98) INP10312 

~l;9Sr STOP INP10313 

END INP1 314 



o o o o n n 


IBFTC INP2 


LIST 


SUBROUTINE INPUT2 


SUBROUT INE 


INPUT! 


THIS SURRCUTINl READS ANC WRITES OUT THE CASE DATA 
COMMON STATEMENTS 

THIS SUBROUTINE USES COMMON BLOCKS WHOSE NAMES CONTAIN ThC NUMBER I 
PI ,Rl2,813,8l6,P17,ei8 f Rl2fc,el67,B168,B178,Bi€7€*B12678 
ALSO E3 (SHARED WITh CLARE) 


X INT *PI A *NWH*NG* FFB(5C ) »FTA ( 1201 
DSWLOU* DSWLINt 


CCMM0N/B1/KTAPE, 
l * FT B ( 120)»NELADE,NUMSW, 

ITCATA (50), TCATB(50? ,HAB (50 ) 

CCJMM0N/B3 / M,NCASE, INPUT, IT APE, FGIZ(A5> 

COMMON/ B 12/ X (I20),CA( 120>»CB( 120),SA( 50, SB (50 1, 

INRECT,NXL)1 F,ND IFF, N SNOUT, NXD IF I,NXDIF2,NXCIFA,NXDIFB »NTUBE, 
2PRESIN, BLOCK (SO), ABLCCK, SHAPEH ( 2 , 50) , 

3VFCATA (IS) , R DATA ( 15 i ^NUPR, ARCTA( 20C| , XLNDTAI 20 ) ,EFDT A ( 200 ,NCDF # 
4NYDF,NZCF,E1DTA, NXCF, AREF ,W IOTHI, 

5XMACH,RHCREF,EFCT(3) 

CCMMCN/813/ AREA1,NXDIFC,NYDIFB,NZ0IFB,NCDIFB»E101AB 

i,XLNDTB(20) f EFCTAt)( 200 ),ARDTA8(200) , 

INWALLl , NWALL2 

CCMMCN/Bi6/CDSI20,15),QPHS',20, 15),FLCV»IH, NABX(AS) 

I , NSP( 2 C ) ,GX I S( 2C t 131 ,KA,K6»FIT»FIPH! fPIPSl»FlA|PITAU»FID»PIENTH 


0010 
INP20020 
INP20030 
INP20C4C 
I NP20050 
I NP20060 
INP20070 
I NP2CC80 
INP2CC9C 
INP20100 
INP201 10 
INP20120 
I NP20130 
INP2C1AC 
INP20150 
INP20I60 
I NP20170 
I NP20180 
INP2019C 
INP2C200 
I NP20210 
INP20220 
INP20230 
INP20240 
I NP20250 
I NP20260 
INP2C270 
1 N P 202 60 


2,SHAFST, 


FIFTPRi 


LCMFL »LCANllI NP2029C 


3,LCANL f LCFTEL,LCFTL,LCPRTL,BETA,ASW,FFlZ(A5) ,AHD0ME*NSCCCP(20» I NP20300 

A,LCpTAL ? PAFRZ,NFTU(50) INP20310 

5 ,AF23fc'3 ),AF23B(3 ),XAF23A{ 3),XAF23B( 3) INP20320 

CCHMCN/B17/ XHU(50) ,DXHU(5C),EFC(2), NEF ,STCP « JKSN( 50) »NSH INP2033C 

C0MM0N/E18/ABSW,EMW, EFC,NLUM, NHTl *NHT2 INP20340 

1 , X1FCAU5) ,X1FCBU5),CCNDFT,TCASA(A5) *TCASBU5 ) , TCLTWI ,TOLTl NP2035C 

2W2 »XF I LMZ , TA8TFT( 10 ) ,T ABEFT ( ICC I, TABPFTI 10) ,NEFT ,NPFT ,NF0RM I NP20360 

3 ,NCOOL , NUMAXl ,NUMAX2 INP2037C 

CCMMCN/B126/AF2»TANIA,TAN18,PAN1A, PAN IB, AFA, AFB* PREOM *STA6T I NP2038C 


1 , IBL,STPREF,PNRTA f PNRT E , DPHSNT , DOMLCS 
CCMMCN/BI67/GASC,GRAVC,GJ0ULF, IHJ(5C) ,XH( 50) t NH 
CCMMON/B 168/ AANA( 45 ) ,AANB<45 ), CCA ( 45 ) ,CCB( 45 )» FHCR , ((LAST 

1 ,KANhFT,LANHET,PERCQ,THIKFT 
2,DANA(45),DANB (45) 

CCMMCN/E178/0FT(45 ) 

CCMMCN/B1678/NSHCP,XCP<45) ,AFT(451fPl 
l,NHH(50),KJSN(45,6)»HAU(5C), CFTAI45) »CFTBU5 ) ,NAB (5C ) »NCCOEA (45) 

2 ,NCOOE B ( 45 ) »TZ 
CCMMCN/R12678/ JTAPE ,IPRINT 
CCMMCN/BI26D/AFCL,AFCU,AFSL, AFSU 

DIMENSION STATEMENT 

01 MENS ION DA(60),CB<40) , DUMF ( 46 ) , WORD < 2 > , *0R E (6 , 5 > *X INCH ( 1 20 ) 
FORMAT STATEMENTS 

1 FORMAT (7E10. 3) 

2 F0RMAT(7I10) 

3 FORMAT ( 2E 10. 3) 


INP20390 

INP20400 

INP2041C 

I NP20420 

INP20430 

I NP2044C 

INP2045C 

INp20460 

INP20470 

INP2G48C i 

INP20490 

INP20500 

IKP20510 

INP20520 I 

INP2053C 

INP2054C 1 

INP20550 

I NP20560 

INP20570 t 

INP20580; 

I NP2Q590 


* 


il FCRMAT!/////22HCINLET FLOW CONOIT IONS/ 1X21 ( 1H-) /44HCT0TAL TEMPERA! INP206CC 
1LRE AT COMPRESSOR C I SCHARGE *F10.3,fcH OEG F/44H TOTAL PRESSLRE AT INP20610 
ICCMPRESSCR DISCHARGE *F10.3*5H PSIA/44H AIR FLOW RATE AT COMPRE I NP20620 
3SSCR DISCHARGE *F10.3,12H LBM PER SEC/23H OVERALL FUEL- A IR RATINP20630 
4IC20XlH=FlO.3//////2OHODlFFUSER INPUT CATA/1X191 1H-I/22H0I NITI AL S INP2064G 
5HAPE FACTORS / 1 IX 10 H INNER WALL22X F7.3/ 1 1X1CH0UTER WALL22XF7. 3 /30H IINP2C650 
6fsLET BOUNDARY LAYER 8L0CKAGE12XlH*F7.3/43H FRACTION OF INLET BLOCK I NP20660 
7 AGE CN INNEP WALL =F7.3/43H NUMBER OF STREAM TUBES TO BE COnSIDERE INP20670 
80 »I4////36X47HFIRST ESTIMATE OF BLOCKAGE AT DOWNSTREAM POINTS/// INP20680 

940X21HAXIAL DISTANCE INCHES 10X 8HBL0CKAGE//I 30X2 ( 14XF 1C .3 )) ) INP2G690 

22 FORMAT (60H EMPIRICAL CATA ON LIBRARY TAPE IS USED FOR FLAME EMISSI I NP20700 
IVITYI 

28 FCRMAT! IX, 4A6,A2*38H MODEL IS USED TO REPRESENT JET MIXING) 

29 FORMAT (IX,4A6,A2»39H. MODEL IS USEO TO REPRESENT JET MIXING 
1 


I NP2071C 
I NP20720 
* INP2073C 

3Afc,F6.INP207A0 


13, 3A6,A3/lX,A3 t F6.3»3A6t A2) INP20750 

311 F CRMAT ( 30H HEAT TRANSFER TO ANNULUS AIR A6,liH CONSIDERED) INP20760 

312 FORMAT (A7H THE FEAT TRANSFER CALCULATION IS NOT PERFORMED) INP2077C 

32 FORMAT ( ///49X22H INLET VELOCITY PROF ILE///22X 3BHFRACT ICNAL Dl STANCEI NP2078C 

l ACROSS INLET PLANE 10X28HVEL0C ITY (NCND IM£NS IONALI ZED/28X26H (MEASL I NP20790 
2RED FRCM INNER WALL ) 16X27FW ITH AN ARBITRARY VELOCITY ) // (2X2 (32XF 1C I KP20800 


INp2C8 10 
I NP20820 
I NP2C830 
INP20840 
, INP20B50 
I NP20860 
I NP20870 
1NP2C88C 
INP20890 
A I NP20900 
I NP20910 


3.3))) 

33 FORMAT ( 2 7H THE FLAME IS ASSUMED TO BEfc Afc, 2CH CORRELATION IS USED) 

34 F CRMAT ( 1H128X13 (2H* ),8HCASE N0.I3.13I2H *)) 

35 FORMAT (/////28H0RCUTING THROUGH THE PROGRAM/ 1X211 1H-) //) 

36 FORMAT (/////5CHCALL THE OTHER VARIABLES ARE THE SAME AS FOR CASE 
113, 

1/1X501 1H-) ) 

38 FORMAT (112H IF EMPIRICAL DATA ARE USEC TO CALCULATE THE OIFFUSER 
1FFFECTI VENESS , THESE CATA ARE TAKEN FROM THE LIBRARY TAPE) 

39 FORMAT! 85H OIFFUSSeR EFFECTIVENESSES FOR THE DIFFLSING PASSAGES 
IRE READ IN WITH THE FIXED OATA ) 

40 FORMAT! 6lH THE BASIC HEAT TRANSFER CALCULATION SOLVES FOR A MODEL I NP20920 

1 WITH ,A6, A2 ,22H FLAME-TUBE WALLS AND , A 1 , 12H-0 IMENS IONAL/ INP20930 

1 34 H RADIATION TRANSFER FRCM THE FLAME) INP2094C 

41 FORMAT !26H CORRECTIONS ARE MACE FOR ,5A6,A5) INP20950 

42 FORMAT !26H CORRECTIONS ARE MAOE FOR , 5A6 , A 5, A5, 5A6.A5 ) INP20960 

43 FORMAT (63H NO CORRECTIONS ARE MADE TO THE BASIC HEAT TRANSFER CALCINP20970 

ILLATION) INP20980 

45 FORMAT! 5H THE ,2A6,A3,8CH METHOD IS USED TO CALCULATE OIFFUSER PERINP20990 

IFCrMANCE FROM THE CIFFUSER INLET TC THE,1X,A5) INP21000 

46 pCRMAT !4H THE,2A6tA3,77H METHOO IS USED TO CALCULATE THE DIFFUSER INP21010 

IPERFGRMANCE IN THE PASSAGES BETWEEN* IX, INP21C20 

1 A5 » 17H AND OUTER CASING) INP21030 

47 FCRMATdilH SEPARATION IN THE DIFFUSER IS PREOICTEO USING THE STREI NP2104C 
1AMTUBE METHOD AND THE MASS FLOW SPLIT OBTAINED USING THE/ 

239H CALCULATION PROCEDURE As GIVEN ABOVE ) 

82 FORMAT ( 73H0CALCUL AT ION AXIAL CUMULATIVE FUEL BURNING 

IING TEMPERATURE / 

2 73H POINT POSITION FRACTION RATE 

3 DEG F / IF P21 ICO 

4 73H NUMBER IN FUEL BURNT LBM PER S£C ININP21110 

5NER CUTER /) INP21120 

83 F0RMAT!2X,I3,9X,F7*3,6X,F6.3f6X, F7.3.7X, F7.l*2X*F7.l ) INP21130 

84 FCRMAT (IX//////63H FUEL BURNING RATE AND CASING TEMPERATURE AT CALINP2114C 

1CULATICN PClNTS/iX,63< IH-) ) INP2U50 

85 FCRMAT! U7H THE TWO-DIMENS IONAL-R ADI AT ICN OPTIqN CANNOT B E LSgO ININP2U60 

1 A CCMBuSTOP OF RECTANGULAR CROSS SECTION. THE FLAME RA0IATICN/38HINP2U7C 

2 WILL BE CALCULATED ONE-DIMENS IONALLY. ) INP2118C 

86 FCRMAT(98H0THE TWO-O IMENS I CNAL-RADIAT ION CPTION CANNOT BE USED WITINP2U90 


I Np 2 1 050 
INP2106C 
CASI NP2107C 
INP.?1080 
INP21090 


1H TABULATEC 
2CUAL TO 4 ) 


EMISSIVITY DATA 


/BOH NLUM HAS BEEN SET 


DATA STATEMENTS 


DATA (DA ( I ) » 1=7 » 8 J/5HSNOUT ,5HC0ME / 

DATA D A ( 20 1 1 OA ( 22 ) /8HUNCCCL EC, 8H COOLED / ,0A ( 2 A ) , 0A( 25 ) / IH l , 1H2 / 
DATA DAJ26 W DA ( 32 ) , D A ( 38 ) / 35HLONG I TUOI NAL MALI. CONDUCTION « 

1 35HRACIAT ZQN INTERCHANGE BETWEEN HALLS, 5H AN(j / 

TATA DA(50i , DA ( 53 ) , CA < 56 )/ 15H EMPIRICAL DATA, 15H STREAMTLBE , 
115HMIXING ECU AT ION/ 

DATA Ce(6),DBtl),DB(ll),CBC16)/ 26HTHE EQUIVALENT ENTRAINMENT, 
126HTHE MASS LOSS , 26H7HE PROFILE SLBSTITUTION , 

226HTHE INSTANTANEOUS MIXING / 

DATA DB(21 ),DB(24),DB(28),0&(29)/ 18HNITH A CONSTANT 0F,21H FOR 


EINP21200 
I NP21210 
I NP2I220 
INP21230 
INP2124C 
INP2125C 
I NP21260 
, I NP21270 
INP21280 
INP21290 
INP213C0 
INP2I310 
INP21320 
INP2133C 
PEINP2134C 


1NETRATICN JETS, 3hAND,I4K FOR HALL JETS/ INP21350 

DATA(WCP0m,I*I,2)/12H IS IS NOT/, I (HORef I,J )»I-1*6) , J-l,5)/18CINP21360 
IH NONLUMINCUS. REEVES DISTILLATE-FUEL NONLUMINOUS. REEVES RESIDUINP2 13T0 


2 AL-FuPL LUMINOUS. 

3THE NREC 1964 LUMINOUS. 


THE LEFEBVAE LUMINOUS. 
THE NREC 1966/ 


DClil3I=l,NG 

313 XINCH(I)=X(I ) * 1 2 • 

314 V* R I TE ( JT APE , 34 )M 

IF (r.nE. 1. AND. INPUT. EC. UG0T0110 

CHANGE UNITS IF INPUT-0 

IF (M.EC. 1 ) A F2= l .0 
AFA-AFA/AF2 
AFB-AFB/AF2 
DC 136 JL 2 1, 3 
AF23A( JL) = AF23A( JU/AF2 
136 AF23B(JL)=AF238(JL)/AF2 

IF(TCASAd).EC.STAGT) TCASAID-O. 

** THERE ARE NO CAROS INP2'i360, 
354 CONTINUE 


1570, AND 15C0 ♦♦ 


READ NEW CASE DATA TO CHANGE FLOW VARIABLES 
DLM1 = SHAPEH ( 1 til 


I NP21380 
I NP 2 1 390 
INP21400 
INP21410 
INP21420 
I NP21 430 
I NP21440 
I NP2145C 
I NP2146C 
I NP21470 
INP21480 
INP21490 
IKP215C0 
INP2151C 
INP21520 
INP21530 
INP21540 
INP21550 
INP21590 
I NP21600 
INP2161C 
INP21620 
INP21630 


UUM2=SHAPFH(2,1) 

READ(ITAPE,1)STAGT,STPREF,AF2,FAR,ABL0CK, SHAPEh(I.I) ,SHAPEH(2,n, 
1 ( BLOCK (I)fl-ltNXCIF) 

READ(ITAPE»1)DAFA»CAFB, AFCL , afcu, afsl, afsl 

I F (DAFA.GT.O. ) AFA-CAFA 

I F ( CAFB. GT .0 • ) AFB-CAFB 

IFIAFCl.LE.C. )AFCL-0.l 

I F (AFC'J .LE.O. ) AFCU-0.9 

IFUFSU.LE.O. IAFSU-AF2 

IFIAFSL. LE.O.) AFSL -0*0 

I F ( SHAPEHI 1, D.EC.O.) SHAPEHI l,l)«OUMl 

IF(SHAPEH(2,l).EC.O.) SHAPEH ( 2, 1 1-0UM2 

RE ADI ITAP6»2)NTUbE»NUPR 

READ( ITAPE,3) (VPDATA1 15),R0ATA( 15) ,1 5-l,NUPR ) 

AFA-AFA*AF2 

AFB- AF8*AF2 

FFPRZ»FAR*AF2 

DC 132 JL-1,3 

AF23A( JD-AF23AI JL)*AF2 


INP2I640 
INP2165C 
INP21660 
INP21670 
INP21680 
INP2169C 
INP21700 
I NP21710 
INP21720 
I NP21730 
INP2174C 
I NP21750 
I NP21760 
INP21770 
IKP21780 
INP2179C 
1 NP21800 
INP21810 
1NP21820 


o o o r> o o o 


*. 

AF23e(JD»AF23B(JL)*AF2 
I F ( I CAS A ( l ) • NE *0 • ) GO TO 
CC 1360 K*i tNLAST 
TCAS A( K )*ST AGT 
TCASBOO-STAGT 
CONTINUE 
DUMP ( 1 )»0* 

00 133 K*l»NLAST 

OUMF (K*1)*CUMHK) ♦FFIZ(K) 

FFIZ(K)-FGIZ(K)*AF2«FAR 


nj 


132 


1360 

1361 


1361 


133 


C 

C 


DO 1341 K»i tNLAST 

1341 XCP(K)«XCP(K)*12. 

WRITE (JTAPE, ii >STAGT,$TPREP, API, PAR, $MPEHU,l)tlWAP8H(t»n»llOCM 
lilt ABLCCK t NTUBE • ( X INCH ( 1 1 « BLOCK ( I) *1 • 1 ,NXCIP ) 

WR ITE { JTAPE ,32 ) ( RDAT A( I) »VpCATA( ! ) , I* 1*NUPR) 

WRITE! JTAPE 1 84 ) 

WRITE! JTAPE, 82) 

WRITL-! JTAPE, 83) (K,XCP!K >, DUMP (K + l ),FFIZ(K ), TCASA!K ),TCAS8 (K) ,K»1, 
INLAST) 

CONVERT UMTS 

OG 1342 K*l tNLAST 

TCASA(K)*TCASA(K)+TZ 

TCASB!K)*TCASE!K)+TZ 

1342 XCP!K)-XCP(K)/12. 

STAGT-STAGT+TZ 

STPREF-STPREFU44. 

I F !P«NE . 1 IGCTClll 

READ NEW CASE DATA TO CHANGE PROGRAM ROUTING 

** INCLUDE CARDS INP22181 THROUGH 2186 *• 

110 IF(K.FC.i)GCT0l09 
AFCL-C.l 
AFCU*0« 9 
AfSU«AF 2 
AFSL*0.0 

109 WRITE! JTAPE, 35) 

RE AO! I TAPE,2)N0IFF,NEF,NLUM,LANhET ,NHT l,NHT2 
READ! I TAPE ,1 ) EFC! I ) ,EFC !2 ) ,EFCT ( 1 ) ,EFDT! 2 ),EFOT( 3) 

1105 IF(NEF.EQ.4) WRITE! JTAPE,28 ) (DB! IL ) * IL* 16,20) 

IF (NEF.EC.4) GO TO 1106 

NF0*NEF*5 

NFE«NF0-4 

WRITE (JTAPE, 29) !DB( IL ) , IL«NFE,NFO), ( OB! IL ), IL-2 1,23 ),EFC(1) , (OB! I 
IL),)L S 24,28) , EFC (2), (OB! IL ), IL-29,31) 

1106 CONTINUE 
LANHT-LANFET+2 
IF(LANHT.EC.3) 

IFILANHT.EC.4) 

IFILANHT .NE.4) 

I F ( NLUM • EQ *6 ) |,R I T E ( J't A PE , 22 ) 

I F(NRECT*NHTi«LT.6)60T0ilC3 
WRITE ( JT APE, 85) 

NHT1*NhTI-2 

1103 I F(NHT1«LE*2«0R*NLUM*LE*5)G0T01104 


LANFT-l 

WRITE! JTAPE, 312) 
WRITE! JTAPE ,311 ) 


WORO(LANHT) 


1NP21830 
I NP2184C 
I NP21850 
I NP21860 
I NP21870 
INP21880 
INP21890 
UP21900 
INP21910 
INP21920 
INP21930 
INP21940 
INP21950 
INP21960 
INP21970 
I H P2 1980 
INP21990 
INP22000 
INP22C10 
I NP22020 
INP22030 
INP22040 
INP22C50 
INP22C60 
INP22070 
INP22080 
INP2209C 
I NP22100 
I NP221 10 
I NP22120 
INP22130 
INP22140 
I NP22150 
INP22160 
INP22170 
I NP2218C 
I NP22181 
INP22182 
I NP22183 
IKP22184 
INP22185 
INP22186 
INP22190 
INP22200 
I NP22210 
1 NP22220 
I NP22230 
INP22240 
INP22250 
I NP22260 
INP22270 
INP22280 
I NP22290 
I NP22300 
1NP22310 
INP2232C 
I NP22330 
INP22340 
INP22350 
INP22360 



( * 


5 28 


WRITE! JTAPE, Bft) 

NLUP*4 

: h continue 

IF(NtUP.NE.6)WRIT|(JTAPEf33)!WORE( IB,NLUH).IB«1,6) 

IF UANHT.EC.A) GO TO 1107 

IF(NHTl.EC.l) WRITE(JTAPE,40) DA ( 20 ) , CA ( 21 ) .DA ( 24 ) 

I F ( NHT 1 . EQ .2 ) WRITE! JTAPE, 40) OA! 22) *CA(23 ) * OA ( 24 ) 

I F (NHT 1 .EC .3 ) WRITE! JTAPE, AC) OA ( 20 ) *QA( 21 ) ,DA ( 25 > 

IF1NHT1.EC.4) WRITE! JT APE* AO ) DA ( 22 ) , CA( 23 ) ,DA ( 23 ) 

I F ( NHT2. EC. I ) WRITE! JTAPE, 43) 

IF! NHT2.EC.2 ) WRITE! 5TAPE.41 ) ( OA ( JL ) , Jl-26, 3 1) 

IF(NHT2.EQ.3) WRITE! JTAPE*A1) (OA ( JD , Jl-32,37 ) 

I F (NHT2.EC.A) Wfl I TE( JT APE, A2 » (DA! JO* 4L«32t 37) .DA(3 8 ) » (OA (Jl) * 
1JL-26,3I) 

110 7 CONTINUE 
NDI F*l 
NDIG-0 

IF (NDIFF.GE.O ) GO TC 1109 


NCIF — 1 
NDI FF»-NO! FF 

1109 IF(NDIFF.LE.IOO) GO TO 1110 
NOIFF*NCIFF- LOO 

NOIG-l 

1110 CCNTINUE 
NWAY*NDIFF/10 
NGO* NO I F F-NW AY* 10 
NOIFF«(NUIFF*100*NCIG)*NO!F 
I F (NSNOUT. EC • 1 ) IJ*7 
IF(NSNCUT.EC.O) IJ«8 

I F (NWA Y. EC. 1) WRITE! JTAPE* A5) I OA { JK ) * JK-53 .55) *DA(I J ) 
IF! NWAY.EC.2 ) WRITE (JTAPE *A 5) ( OA! JK) * JK» 50,52) *CA ( I J ) 
IF( NGC .EC .1 ) WRITE (JTAPE *A6 ) ( CA! JK ) , JK*53, 55) *DA ( I J) 
I F (NGC .EC. 2) WRITE! JTAPE* 46) (OA ( JK ), JK«50t 52) *0A ( I J ) 
IF (NGO .EC. 3) WR ITE( JTAPE *46 ) (DA! JK ), JK»56* 5€),DA( I J ) 
I F ( KOI F. EC. 1 ) WRITE! JTAPE.38) 

IF(NOIF.EQ.-l) WRITE! JTAPE * 39 ) 

I F ( NO IG.EC • 1 ) WRITE(JTAPE*A7) 

111 MN« 1 

lF(P.NE.i)WRITE(JTAPE*36) NN 
I F (NCASE. EQ.O )GOT 0 1315 
return 

1315 MP*1 

GO TC 131A 
END 


•••••••* 

INP22370 
INP22380 
INP2239C 
1NP22A00 
INP22410 
INP22A20 
INP22A3C 
INP22AA0 
INP22A50 
INP22A60 
INP22A70 
1INP22A80 
I NP22A90 
INP22500 
INP22510 
INP225 20 
INP22530 
INP225A0 
INP2255C 
INP22560 
INP22570 
INP22580 
INP22590 
IKP226C0 
I NP22610 
INP22620 
INP22630 
INP226A0 
I NP22650 
INP22660 
INP22670 
INP22680 
INP22690 
I NP22700 
INP22710 
INP22720 
INP22730 
I KP227A0 
INP22750 
INP22760 
IKP22770 
I NP22780 
INP22790 
INP22800 


YOUR CARO TCTAL IS 
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non non ooooooooo 


$1 BFTC TAP 
C 

SUBrOUTINETAPE 
READS DATA FRCP LIBRARY 

data in core 

COMMON STATEMENTS 


TAPE ANC ASSEMBLES SHCRT LIST OF RELEVANT 


THIS SUBROUTINE USES COMMON BLCCKS WHOSE NAMES CONTAIN THE NUMBER 
VI Z- ei ,Bl2,8l3,Bl6vB17,ei8,B167,B168,Bi78,8l234,B1678,B12346 


X INT*P I4,NWH,NG,FFB (5C ),FTA(120) 
CSWLOU tOSWLINy 


TAPEOOOl 
TAPE0002 
TAPECC03 
TAPECCOA 
TAPE0005 
TAPE0006 
TAPE0C07 
TAPEOOOB 
TAPECCC9 
TAPEOO jC 
TAPECCU 
TAPEOOI2 
TAPEOOI3 
TAPE0014 
TAPE0C15 
TAPEOO 16 
TAPE0017 
TAPC0018 
TAPEGC19 
TAPEC020 
T APE0021 
TAPE0022 


CCMMCN/Bl/KT APE* 

1 »FT8(120) » NBLADE, NUMSW, 

1TCATAI50) ,TCATB(5C),HAB (50) 

CCMMCN/B12/ XU20) ,CA(I20),Ce( 120 ) ,SA( 50 ) * SB I 50) * 

INRECT »NXO IF* NC I FF tKSNCUT* KXCl FI *NXCIF2#NXCIFA *NXOIFB »NTUBE • 

2PRESIN* BL0CK(50I* ABLCCK* SHAPEHI 2*501 * 

3VP0AT A ( 15 ) * RDATAI 15 ) *NUPR* ARDTAC2CC1 ,XLNDTA( 20) *EFDTA (200) *NCOF* 
4NYCF,NZDF«E1DT A* NXCF # AREF , WIDTH 1* 

5XMACH,RH0REF*EFCT(2I 

CCMMON/B 16/CDS 120* 1 5 ) » DPHS (20*15)* FLCV* IH» NABM45) 

1* NSPI20) ,GXIS(20, 15)»K4*K6,FIT,FIPHI»FIPS1»F I A, F I T AU *F I D» F IENTH 
2 1 SHAFST t FIFTPR, LCMFL*LCANILTAPE0023 

3 1 LCANL * LCFTEL* LCFTL t LCPRTl »8ETA,ASW»FFIZ(45) »AHDCME * NSCOCPI 20) TAPECQ2A 

A.LCPTALf PAFRZ,NHTU(50) TAPE0025 

5»AF23A(3)»AF23B(3)fXAF23A(3)»XAF 236(3) TAPE0026 

CCMMGN/B13/ AREAlfNXDIFCfNYDIFB»NZDIFB*NCOIFB*ElOTAB TAPE0027 

l » XLNDTB (20 ) , EFCTAB ( 200 ) t AROT AB( 200 ) * TAPECC28 

1NWALLI iNv*ALL2 TAPE0029 

CCMMCN/B 17 / XHU (50 ) t OXHU (50 )* EFC( 2 )* NEF .STEP , JK SM 50 ) ,NSH TAPE0030 

COMMON /Pi 8 /A BSW* EMW f EMC *NLUM* NHT1 f NHT2 TAPE0031 

l, XIFCA(A5).X1FCB(A5),CCN0FT,TCASA(A5)*TCASB(A5)*TCLTW1*T0LTTAPE0C32 

2W2 ,XF ILMZ. TABTFT ( 1C I.TABEFTf 100 )* TABPFT ( 1C) »NEF T,NPFT .NFORMT APE0033 

3.NC00L, NUMAX1* NUMAX2 TAPE0034 

CCMMCN/B126/ AF2.T AN 1A* TANIB, PANlAf PANlB* AFA,AFB ,PREDM*STAGT TAPE 0035 


1* IBL ,STPREF*PNRTA f PNRTB»0PHSNT tDOMLOS 
CCMMCN/B167/GASC.GRAVC. CJCULE, IHJ( 50 ),XH( 50 »NK 
CCMK0N/B168/AANA(45)»AANB(45)»CCA(45),CCB(45)» FFCR*NLAST 

i,kanhet,lanfet,perco*thikft 

2 t DANA ( 45) .DANE (45 ) 

CCMMCN/B178/0FT(45) 

CCMM0N/ei678/NSHCP*XCP(A5)*AFT(A5),PI 
1 »NHH(50 ),KJSN(45,6),HAU(50),CFTA(45),CFTB(45),NABI5C),NC0DEA(45) 
2 * NCODEB (45 ) » TZ 
C0MMCN/B12678/JTAPE *IPRlNT 


DIMENSION STATEMENTS 

CIMENS ICNCDS A( 25) *0PHSA( 25 )*GXISA( 25) * 
FORMA! STATEMENTS 

1 FORMAT ( 7E10»3 ) 

2 FCRMAT(7I 10) 

5 FORMAT (51 10 *E 10*3) 

6 FORMAT (70X12) 

7 FORMAT ( 110, 2E10. 3*2 15, 3E10.3/( 1CX6E10.3)) 
96 FORMAT (65H EMPIRICAL FL ANE-EMISSIVITY DATA 

1DATA TAPi) 


NCARO(10),I0X(60) 


INCORRECTLY WRITTEN ON 


TAPE0C36 
TAPE0037 
TAPECC38 
T APE0039 
TAPEC040 
TAPE0041 
TAPE0042 
TAPEC043 
T APE0C44 
TAPE0045 
TAPE0046 
TAPE 004 7 
7APE0048 
TAPE0049 
TAPEOO 50 
TAPE0051 
TAPE0052 
TAPE005B 
TAPE0054 
TAPE0055 
TAPE0056 
TAPECC57 
TAPEOO 58 
TAPE0059 



n r> tv Vswct 




97 FCRKAT(47H DIFFUSER DATA INCORRECTLY MITTEN CN OATA TAPE) 

98 FORMAT (65H HOLE DISCHARGE COEFFICIENT OATA INCORRECTLY WRITTEN ON 
10ATA TAPE) 

99 FORMAT (/////37HC999 ERROR MESSAGE « PROGRAM STQPPSfi) 

OCllOJ*l»KH 
110 IHJ( J )*0 

HOLE DISCHARGE COEFFICIENT ANO JET ANGLE OATA 
IH*l 

READ (KTAPE*2 INNXTYP 

102 READ(KTAPE v 7)KHTYP v OXFiHAA v NSCOOQ v NSPA 9 (OPHSAm 9 COSAU)»GXXSAU) 
11*1, NSPA) 

NEND*0 
DC101 J*1 »NH 

IF (NHTYP»NE*NHTU( J) ) GOTO 10 1 
IF(HAB( J ).NE.O.) HAA*HA8( J ) 

DXHU ( J )*CXH/12« 

HAU(J)*HAA/144. 

I F (HOC (NSCOOQ, 10 ) •NE«2)G0T01025 
HAU( J)*HAA/12. 

NHH( J)*l 
1025 IHJ( J )* IH 

IF(NEND.NE .0)GQT0101 
KEND=l 

D0103 {4*1, NSPA 

DPHS( IH,I4)sAL0G(CPHSA( 14) ) 

C0S(IH,I4)*CDSA(I4) 

103 GXIS( IH, 14 )*GXISA ( 14 )*P I/18C* 

NSP( IH )*NS PA 

NSCCQPt IH)*NSCOCQ 
101 CCNTINUE 

IF(NEND.EQ.l)IH*IH4l 
109 C CAT IMIE 

IF(NHTYP.LT.NMXTYP)GOTQ102 
READ (KT APE, 6) INCEX 
IF(IN0EX.NE«1 ) GOTO 198 
INDEX*0 

EMPIRICAL GENERALIZED DIFFUSER OATA 
READ(KTAP£,2)NmALMX 

READ (KTAPE,?) (NCARC(I7) V 17*1,NMALMX) 

DC 1051 7*1 ,NWALMX 

104 RE AD (KTAPE ,5 ) NWALL ,NXD IFD, NYDI FA,NZDIFA,NCDIFA, E 10TAA 
IFINWAU.NE.NUALLDGOTOIOC 

KXDE*NXC1FD 

NYDF=NYCIFA 

NZDF*NZDIFA 

NCDF*NCCIFA 

tlDTA*E10TAA 

READ (KTAPE ,1 ) (EFDTAt I) , I*1,NYCF), ( AROTAI I) 9 I*1 9 NX0F) 9 (XLNOTAI I ) 9 I 
11 ( NZDF) 

GOT0105 

100 IF(NWALL.KE.NHALL2)G0TO1O6 
NXDI FC*NXOIFD 
NYOIFB-NYDIFA 

nzdifb-nzoifa 

ncdifb-nccifa 


T APE0060 
TAPE0061 
TAPE00A2 
TAPE006) 
TAPE0064 
TAPE0065 
TAPE0066 
TAPE0067 
TAPE0C68 
TAPE0069 
TAPE0070 
TAPE 0071 
9 TAPE0072 
TAPE0C73 
TAPE0074 
TAPE0075 
TAPECC76 
TAPE0C77 
TAPE0078 
TAPE0079 
TAPE0C80 
TAPE0081 
TAPE0082 
TAPEC083 
TAPECC84 
TAPE0C85 
TAPE0086 
TAPEC087 
TAPE0C88 
T APEG089 
TAPE0090 
TAPE0091 
TAPE0092 
T APE0093 
TAPEC094 
TAPE0095 
TAPE0096 
TAPE0C97 
T APE0098 
TAPE0099 
TAPE0100 
TAPE0101 
TAPE0102 
TAPE0103 
TAPE 01 04 
TAPE01C5 
TAPE0106 
TAPE0107 
TAPE0108 
TAPE0109 
TaPEOUO 
TAPE0111 
•TAPE0112 
TAPE0113 
TAPE0114 
TAPE0115 
TAPE0116 
TAPE0117 
TAPE0118 
TAPE0119 


ooou 
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6 10TAB*E10TAA 

RfADlKTAPE.l) IEFDTA8II ), I* l.NVOIFB), ( AROTABI I ) v I*1«N XOIFC) • 
l IXLKDTBII) »I*l»NZ0IFB) 

G CTO 105 

106 KCRO*NCAROINWALL) 

READIKTaPE, 6) I ICXtlll), f U»1*NCRD) 

105 CONTINUE 

REAOIKTAPE *6) INDEX 
IF(INCEx*NE«l ) GOTO 197 
INDEX*0 

EMPIRICAL FLAPE-EPISSIV1TV CATA 

WHEN THIS TABLE IS SET UP CN THE CATA TAPE* NLUR IN BLOCK OATA 
SHOULD BE CHANGEO TO 6. 

I F ( NLUM.N6 *6 ) GOT CIO 7 

REAOIKTAPE, 2) NTFT, NEFT*NPFT*NFOrR 

REAOIKTAPE. 1) ITABTFTC 12)* I2*1*NTFT)*(TABPFT 112 )* I2*l*NPFT| * 

1 1 TABEFT II 2) *12=1 »NefT ) 

OC 1055 12*1, NTFT 
1055 TABTFT !I2)*TAETFT I I21+TZ 
REAOIKTAPE, 6) INDEX 
IF { INDEX.KE.DG0T0196 
I NDEX*0 

107 RETURN 

196 WRITEI JTAPE,99) 

WRITE IJTAPE, 96) 

ST CP 

197 WRITE! JTAPE.99) 

WRITE! JT APE, 97 ) 

STOP 

198 WRITEI JTAPE,99 ) 

WRITEI jTApE ,90 ) 

STOP 

END 


•••••••* 

TAPE012C 
TAPE0121 
TAPE0122 
TAPEG123 
TAPE0124 
TAPE0125 
TAPC0126 
TAPE0I27 
TAPE0128 
TAPE0129 
TAPE0130 
TAPE0131 
TAPE0132 
1 APE0133 
TAPE0134 
TAPE0135 
TAPE0136 
TAPEC137 
T APE0138 
TAPE0139 
TAPE0140 
TAPE0141 
TAPEOl 62 
TAPE0143 
TAPE0144 
TA°E0145 
TAPE0146 
TAPE0147 
TAPE0148 
TAPEC149 
TAPE0150 
TAPE0151 
TAPE0152 
7APEC153 
TAPEC154 
TAPF0155 


VOUR CARD TCTAL IS 
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no non on 


SIBFTC GEC 


LIST 


subrcutinegeom 

CALCULATES GEOMETRIC QUANTITIES AND FIXES LOCATIONS OF CALCULATION 
POINTS 

COMMON STATEMENTS 

THIS SUBROUTINE USES COMMON BLOCKS WHOSE NAMES CONTAIN THE NUMBER l 
VIZ- Bl, Bl2,B13,B16,Bi7,B18»B 167, BU8,B178,B 1234, BU78.B12346 


0C1C 

GECM0020 

GECM0030 

GECM0040 

GE0MCC50 

GECM0060 

GECM0070 

GECMOOBO 

GEOM0090 

GECMOIOO 

GECMOUO 

GE0M0120 

GE0M0130 

GECMC140 

GECMOUO 

GECMOUO 

GE0M017C 

GECM018C 

GECM0190 

GECM0200 

GE0M0210 

GE0M022C 


CGMMCN/81/KTAPE, XINT*PI4,NWH,NG*FFB(50 ) ,FTA< 120) 

l,FTB(12C) «NBLADE* NUMSW, 0$WL0U,DSWL IN, 
lTCATA(50),TCATB(50) t MAB( 50 ) 

COMMON/ e 12/ X (120 ), CA( 120) ,CB ( 120| ,SA( 5C ) »SB (SO), 
iNRECT,NX 0 IF,NCIFF,NSNCUT»NX 0 IFl,NXCIF 2 ,NXDIFA*NX 0 IFe,NTUBE, 

2 PRESIN, BLOCK! 50) , ABLOCK, SHAPEHI 2,50), 

3VP0ATA(15) , ROATA ( 15) ,NUPR, AR0TA(20C),XLNOTA( 20) ,EFOtA (20C ) ,KCOF , 

4NYDF ,NZDF,E10TA, NXDF, AREF ,WICTHl , 

5XMACH (RHCREF, EFCTf 3 ) 

CCMMON/B 16/COS (20, 15), OP HS (20, 15),FLCV,IH, NABX(4S) 

l,NSP(20),GXlS(2C,l5)»K4,K6,FIT,FIPKI,FIPSl,FIA f Fl1AL,FID,FIENTH 

2 ,SHAF ST, FIFTPR, LcMFL,LCANUGECMC230 

3 ,LCANL , LCFTEL ,LCFTL tLCPRTL »BETA»ASN,FFIZ(45 ), AhDOME,N SCOOP (20) GECM024C 

4, LCPTAl*PAFRZ,NHTU(50) GE0M0250 

5, AF23a(3),AF23B(3),XAF23A(3),XAF23B(3) GEoM0260 

CCMMCN/B13/ AREAI,NX0IFC,NVDIFB,N2DIFB t NCDIFB,E ID TAB GE0M027O 

l,XLNDTfi(20),EFOTAfi(200),ARDTAB( 200 ) , GECMC28C 

INWALL1 ,NWALL2 GE0M0290 

CCMMCN/B17/ XhU(50),DXFiU(50),EFC(2), NEF.STEP, JKSN (50) ,NSH GE0M03C0 

CCMMCN/B167/GASC, GRAVC, GJCULE, IHJ ( 50 ),XH( 50 ,NH GE0M0310 

COMMON/ 8178/0 FT (45) GECM0320 

CCMMCN/E16 78/N$HCP,XCP (45) ,AFT (45), Pi GECM033C 

1 , NHH (50 ) f K JSN( 45 ,6) ,HAU( 50 ), CFT*( 45 ) ,CfTB(45 ) ,NAB (5C ) ,NCOOEA (45) GE0MC34C 
2 ,NC CDEB (45 ) , TZ GE0M0350 

COMMON/ E12678 /JT APE ,IPRINT GECM0360 

CCMMCN/B18/ABSW,EMW,EMC,NLuN, NH11,NHT2 GEOM037C 

1, X1FCA(45),X1FCB(45),C0N0FT,TCASA(45),TCASB(45),T0LTM1,T0LTGE0M038C 

2W2 ,XFILMZ, TABTFT ( 10 ),TABEFT ( 100 ),TABPFT ( 1C) *NEFT,NPFT,NF0RMGE0M0390 

3,NC00L, NUMAX1, NUMAX2 GECM0400 

C0MMCN/8126/AF2*TAMA,TANIB,PAN1A,PAN1B, AFA,AFB*PREDM*STAGTGE0M0410 

1,IBL,STPREF,PNRTA,PNRTB,DPHSNT,OOMLOS GE0M0420 

COMMON/ 6168/ A ANA ( 45) • AANB( 45 ),CCA( 45),CCB(45 ) ,FMCR,NLAST GE0MC430 

1,KANHET,LANHET,PERCC,THIKFT GECM0440 

2,0ANA(45) ,0ANE(45) GECM0450 

GE0M0460 

C DIMENSION STATEMENTS GECMC470 

GECM0480 

DIMENSION HAT (50) ,XFC(51,5 »,AR(2),NAME(3) GECM0490 

GEOM0500 

C FUNCTION DEFINITIONS GECMC510 

GECM0520 

FINTRP(X,Xl,X2,X3,Vl,Y2,Y3)«Yl*(X-X2)*(X-X3)/((Xi-X2)*(Xl-X3))4Y24GECM0530 
l(X-Xl)*(X*X3)/((X2-Xl)4(X2-X3))4Y34(X-Xl)*(X-X2)/(IX3-Xi)9(X3-X2))CECM054C 
FINTL(X,Xl,X2,Vl,Y2)*Y14(X-Xl)4(Y2-Yl)/(X2-Xl) GECMC550 

GE0M0560 

SC DATA DECLARATION GE0M0570 

GE0M0580 

DATA NAME(1I/18H INNER OUTER t 6E0K0590 



DATANER.KMAX, AFFCT , F BLAST, K2,K, 
DATA AHTA,AHTE/2*C./ 

C FORMAT STATEMENTS 


1 FORMAT (IHOlOFll.J) 

2 fcrmatuhoxoud 

12 FCRMAK52HOTCTAL COOLING AIR ENTRY PORT AREA IN THE 
l,6H SC FT/52H TOTAL PENETRATION AIR ENTRY PORT AREA 


* * 

LA, LB/C, 45 *C..O. ,2*0,2*1/GECP0600 

GE0P0610 
GECMC620 
GECPC63P 
GEOM0640 
GE0M065G 
GECM0660 
OCME *F6.3GECM0670 

in the dope -fgecpcabc 


GEOM0690 
GE0MC700 
•F6.GECK0710 
MALL GECP0720 
GEOPC73C 
GECMC740 
GECPC750 
HCGECM0760 
GECP0770 
GE0P078C 
GE0M0790 
GECP0800 
GECM081C 
GE0P0820 


26.3.6H SC FT *31H (INCLUDING TOTAL SMIRLER AREA J//45X7 12H- ), 

315HFLAHE TUBE MALl,7C2H- I) 

13 FORMAT (53H0TCTAL CCCLING PCRT AREA IN THE FLAME-TLBE WALL 
1 3,6H SC FT/53H TOTAL PENETRATION PORT AREA IN THE FLAME-TLBE 
2*F6.3,6H SC FT) 

14 FORMAT ( 1X14, FI 1.3, 15, 2XA6, 17, 2X3( 2X2F8.3 ) , 3< F8.3,1X)) 

15 FQRMAT(8hOREACHEOl3) 

16 FORMAT ( /////57HCOET AILS OF AIR ENTRY PORTS AND GEOMETRY AT EACH 
HE RCW/IX56(1H-) ) 

17 FORMAT (//////30H THIS COMBUSTOR HAS NO SMIRLER/ 1X29 ( IH-) ) 

18 FCRMAT( ////// 15H SMIRLER C ES IGN/ IX 14( IH- ) | 

19 FCRMAT(21H0(SPECIFIED AS INPUT)) 

20 FCRMAT(31H0(0ESIGNEC FROM EMPIRICAL DATA)) 

2| FORMAT (28H0NUMBER CF Sw tRLERS * 14, /28H NUMBER OF BLADES 

1 * I4,/26H BLADE STAGGER ANGLE * F6.2,9h 0EGREES/26H INNERGECMG830 

2 DIAMETER * F6.2,8H INChES/ 26H OUTER DIAMETER * FGE0M0840 

36.2, 8H INCHES/25H AREA PER SMIRLER « F7.2,48H SCUARE INCHESG ECM08 50 

4 (IGNORING BLOCKAGE DUE TO VANES)) GEOM0860 

22 FORMAT (5 7H OR AT I C CF TOTAL HOLE AREA ( INCLUDING SMIRLER, COME HOUE SGECMC870 
1,/ 59H COOLING SLOTS, AND PENETRATION HOLES) TO REFERENCE AREA «F7GECM0880 
2.3) GECM0890 

61 FCRMaT( 13H0HCLE AXI AL5X81HH0UE INNER NUMBER TOTALGEOMO9O0 

2 FORT AREA RATIO TOTAU PORT CUMUUATIVE SUM RATI02(4X5HRATI0) /GECMC910 
34 H R0M4X18HP0SIT ICN TYPE CR5X41K0F HOLES AT THIS HCUE ROM AREAGECM09 20 
4 THIS RCW5X13HCF AREA RATI04X5HFUAME4X5HINNER4X«HCUTER/l£H NUMBER GEGM0930 
5CF HCUE 8X28H0UTER IN THIS SQUARE FEETTX14HTC GRAND T0TAL4xl3H(GECM0940 
6UAST COLUMN ) 4 X4HTUBE 3X2 ( 2X 7HANNULUS ) /BXBHCENTER- 0X1OHMALL R0W59GE0M095C 
7X3 (9H C S AREA ) /8X9HLINE 22x31 18H PENETRAT COOLING) ,3 (9H TO RGECMC960 
8EF )/8X6HINCHES25X3(6H - I0N5X7HSLCTS ),3(5H AREA4X)/ 28X3 (13 X5HGECM09 70 
9H0LES)/, 45X10 (2H- ) .4HD0ME, 10( 2H -)) GEOM098C 

63 FORMAT (IX, 9HTHERE ARE, 13, 10H HOLE ROMS) GE0MC990 

89 FORMAT (46H0THERE ARE NO JET-ANGLE DATA FOR HOLE TYPE NC*I4,67H. TGECM1000 
1HE INITIAL JET-ANGLE ESTIMATE USED IN THE PROGRAM IS NOT AT AU/21GECM1010 


2H ACCURATE FOR SCOCPS.) 

91 FORMAT (19F1*** ERROR MESSAGE/22H NA8X(I)«4 NCT ALLOMEO) 
93 FCrMAT(42H1 IX HAS EXCEEDED ITS LIMIT IN HCLE ROM NO. 131 
95 FCRMAT (41H1K HAS EXCEEDED ITS LIMIT IN HOLE ROM N0.I3) 

C FIND REFERENCE AREA 

D0U4I*1,NG 

C TRUE ANNULUS 

IF (NRECT.EQ. 1) A*(CB( I)**2-CA( I )4*2)*PI4 
C RECTANGULAR 

IF (NRECT *EQ. 2) A«(C3(I)-CA( I ) )*WIOTHl 
D*CB ( I )-CA ( I ) 

IF(I.EC.l) AR6AI-A 


GEOM1020 

GF0MIC30 

GECM1040 

GECM1050 

GEOM1060 

GEOMIC70 

GECM1080 

GECM1090 

GECM1100 

GE0M1110 

GECM1120 

GECM1130 

GE0M1140 

GE0M115C 

GECM1160 

GECM1170 

GE0M1180 

GEOM1190 


J 


£ 
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I FUREF.GE.A )G0T0U4 

GECF1200 


AREF* A 

GECF1210 


CREF=0 

GE0P1220 

114 

CONTINUE 

GECM230 

GECH240 

C 

SWIRLER CESI6N 

GECP125G 

GE0F1260 


I F (K6 ) 300 * 300 1 301 

GECP127C 

300 

WRITE ( JTAPE# 17 ) 

GECM1280 


Gf TC 305 

GECF1290 

301 

WRI TE ( JTAPE* 18) 

GE0P1300 


IF(K6-i)302,3C2,303 

GECF131C 

302 

WRITE! JTAPEt 19) 

GECP1320 


GO TO 304 

GE0H1330 

303 

WRITE! JTAPE*20) 

GE0F134C 


0SWL0U=0.225*0.67*0REF+0*75 

GECP1350 


DSWLIN=0.1*0.67*DREF*0.25 

GECM1360 

304 

ASW=P I* ( CSwL0U**2-DSWLIN442 1/4.0 

GEGM1370 


WRlTE(jTAFE.2l)NUMSW,H8UCE* BETA, CSWL IN.DSWLGU .A$W 

GE0H1380 

305 

CONTINUE 

GE0M390 


BETA=eETA*PI/l8C. 

GECM1400 


ASW= AS W/ 144. 0 

GECP1410 


AS W=ASW* FLOAT ( NUMSW ) 

GE0F142C 


AHPT=ASW 

GE0F1430 

108 

AHFC T=0.0 

GECF144C 


1=1 

GE0M1450 


IF(MfH.NE.l) GO TO 1080 

GE0M1460 


AHPTS= ASW 

GE0F1470 


AHFCTS=0. 

GECP148C 


AFDOPE =0. 

GECP1490 

1080 

0G122J=1 »NH 

GE0F1500 


IFIJ.GT.l. AND.FFBIJKLT.FFBI j-ll) FFB ( JJ-FFB ( J- 1 > 

GEQP15 10 


IFU.GT.l.AND.TCATA! JJ.EQ.C.) TCATAl JJ-TCATA ( J-l ) 

GECH520 


IF (J.GT.l.ANC.TCATB! JJ.EQ.O.) TCAT8U )«TCATB (J-l ) 

GECK1530 


I F ( NHTU ( J ) . EQ.O ) GOTO 122 

GE0F154C 

C 

** INCLUCE CAROS GE0M1551 A NO 1555 *44 

GE0F1550 


IFtDXHU! J).NE.O. KCT0157 

GECF1551 


I F (KRECT .EC. 2) GO TC 1581 

GECP1555 

156 

IF(X( I ) .GE.XHI J) )GCT 0158 

GEOMl 560 


1 = 1 + 1 

GE0K157C 


GOTO 156 

GECP158C 

158 

IF (NAB! J).EC.1)HAT( J)»HAU( J)*FINTL(XH(J),X(I-n,X(I ) 

#FTA (I— 1) «FTA(GECP1590 

1I))*PI 

GECP1600 


IF(NAB ( J).EQ.2)HAT( J)-HAU( J)*FINR (XH( J»,X(I-1),X(I) ,FTBtl-l),FT8(GE0P161C 

11 ) )*PI 

GECP1620 


GC TC 1582 

GECR1623 

1581 

FAT ( J )=HAU ( J ) *W IDTH 1 

GE0H1627 

1582 

AHFCT=AHFCT+HAT( J ) 

GECF1629 

0 

** INCLUCE CARCS GEO* 1623# 1627. ANO U2f 

44 GEOF1630 


GO TO 162 

GECM1640 

157 

HAT! J)=HAU(J) AFLOAT! NHHIJ) ) 

GE0H1650 


AHPT=AHPT+HAT( J) 

GE0M166C 

162 

IF { J.LT.NWH)GCTC1625 

GE0H670 


IF(NA2( J).eC.1)AHTA*AFTA4HATIJ ) 

GE0P1680 


IF(NAB(J).EC.2)AHTB«AHTBaHATU) 

GE0P1690 


GCTC122 

CE CP 1700 

1625 

IF(J.NE.NWH-l ) GOT 0122 

GL-OP1710 


AHPTS*AHPT 

GECF1720 


ahfcts-ahfct 

GECP173C 


AHOOME-AHPTSAAHFCTS -ASW 

GEOMl 740 




.♦ 

* 

122 CONTINUE 


GECM1750 


AHPTU-AHPT 


GECM1760 


AHFCTU»AHFCT 


GE0M177C 


AHPTT*AHPTU-AHPTS 


GE0M17BQ 


AHFC TT* AHFCTU-AHFCTS 


GE0M1790 




GE0M1B00 

C HOVE DOWN FLAME TUBE WORKING CUT GEOMETRIC PARAMETERS AT 

HOLE 

GEOM1810 

C 

PCSITICNS 


GE0M1820 




GECM1830 


ahpt-asw 


GE0M1840 


WHATT-ASW/AHPTU 


GECM1850 


XHATT*0* 


GECM i860 


AHFCT«0. 


GECM1870 


I»1 


GECM1880 


D0100J-I.NH 


GEGM189C 


IH«IHJ(J) 


GE0M1900 


IF(NSC00PUH).EG.11)NER*NHTU(J) 


GECM 19 10 

106 IF(X( I) *GE«XH( J) IGQT0118 


GECM1920 


!«!♦! 


GE0M1930 


GCTC106 


GEOM1940 




GECM195C 

C INTERPOLATE FCR GEOMETRY AT HOLE POSITION 


GECM i960 




GE0M1970 

118 IF(UXHU( J) .EQ»0. JGCTOHO 


GE0M198C 


FTAHI«FINTL(XH(J) ,X(I-n,Xm*FTA( I-l),FTA(I )) 


GECM199C 


FTBHI*FINTLCXH(JI,X( I-i»*X( U*FTB( I-1),FTBU)) 


GECM2C0C 


GCT0115 


GE0M2010 

110 FTAHI*FTA( I ) 


GEOM202C 


FTBHI-FTBI I) 


GECM2030 

115 CAHl*FIKTRP(XH(J) t X(I-2) v X( 1-1) «X (I )tCA( 1-2) »CA(I-1) 

«CA( I ) } 

GECM2C4C 


CBHI*FIMRP(XHJ) ,X(I-2),X(I-n,X(I ),C8(I-2)*CBU-l)tCBmi 

GECM2C50 


IF (NRECT.EC.2 )GCTC12l 


GEOM206C 

12 0 AFTAR»PI4* (FT BHI*FTBHI-FTAhI*FT AHU/AREF 


CECM2C70 


AR 1 1 1* PI4*t FT AHM*2*CAH 14*2 I/AREF 


GECM2080 


AR (2 )*Pl4*(CBHI**2-FTBHI9*2l/ARIF 


GECM2090 


GCT0117 


GECM2100 

121 AFTAR«(FTOHI-FTAHI)/AREF •WI0TH1 


GE0M211C 


AR (1 ) * ( FT ahi-cahi i/aref *WIDTH1 


GECM2120 


AR (2)» (CBHI-FTBHD/AREF 4MICTH1 


GE0M21301 

117 I F (NHTU ( J) «NE *0 ) GC TC 1170 


GE0M2140 


WHAT-O. 


GEOM2150 


XHAT-O. 


GECM2160 


YHAT-O. 


GECM2170 


ZHAT*0. 


GE0M2180 

1170 IF(NHTU(J).EQ.0)GCt0127 


GE0M2 190 




GECM2200 

C FI NO TCTAl HOLE AREAS IN COME AND FLAME TUBE MALL 


GE0M2210 




GE0M2220 


IF(DXHU(J) •GT*0«0 ) GOTO 123 


GE0M2230 ’ 


YHAT«0. 


GECM2240 


ZFAT-HAT(J) 


GECM22501 


AHFCT«AHFCT*HAT(JI 


GEOM2260! 


GCTC124 


GE0M2270! 

123 AHPT'AHPT+HATU) 


GE0M2280j 


YHAT»HAT ( J 1 


GECM2290 


ZHAT-C. 


GE0H2300 

124 WHAT«YHAT/AHPTU 


GECM2310 


XHAT-ZHAT/AhFCTU 


GECM2320 


WHAT T-WHATT+ WHAT 


GECP2330 


xhatt«xhatt*xhat 


GECP2340 



oooonoooooooooooooo n o r» o o 


127 IFIJ.NE.1) GO TC 1270 
WRITE ( JTAPE, 16 ) 

WRITE (JTAPE, 63) NH 
WRITE! JTAPE*6l ) 

IF(NWH.Eg.l) WRITE! JTAPE, 12) AHFCTS,AHPTS 
1270 CONTINUE 

XH(J)*12.*XMJ) 

IDUM*NAB( J) 

IF(NHTU!J).EQ.O) IOUM-3 


GE0M2350 

GECM2360 

GE0M2370 

GE0M238C 

GECM2390 

GE0M2400 

GE0M2410 

GECM2420 

GECM2430 


WRITE! JTAPE, 14) J,XH(J), NHTU(J) ,NAMf:( 10UM ),NHHI J) «VHAT«IHAT ,WHAT,XhGECM244C 


1AT ,WH ATT ,XHATT*AFTAR # AR ! 1) ,AR (2 ) GE0M2450 

XHt J)«XH(J)/12. GE0M246G 

IF! J. EQ. NWH-i )WRITE< JTAPE, 12)AHFC7$,AHPTS GEOP2470 

XHU! J)*XH( J)-CXH,U ( J) , CM 24 80 

XFC! J,1 )*XHU ( J) ' GE0M2490 

IF!CXHu!J).GT.O.O.CR.NHTU! J).EQ.O) GO TO 104 GE0M2500 

GEOM2510 

OUMMY LOCATIONS DOWNSTREAM OF COOLING SLOT* USEO IN SELECTING GECM2520 

CALCULATION POINTS GE0H2530 

GEOP2S40 

CC126l«2,5 GE0H2550 

126 XFC(J»l)*XFC(J,L-l)+XINT GECM2560 

GCT0100 GE0M2570 

104 00 131 L*2 »5 GEOM2580 

XFC! J,L)*999.9 GE0M2S9C 

131 CONTINUE GECM2600 

100 CONTINUE GECM2610 

WRITE (JTAPE, 13) AHFCTT«AHPTT GE0M2620 

IF!AHDCME+ASW.LE.0.)AHDO«E*.0C01 GE0M2630 

AHT«AHTA+AHT B*AHDCME*ASW GECF2640 

AFA-AHT A/AHT GECM265G 

AF6*AHTE/AHT GECM2660 

AHRA;«AHT/AREF GE0M2670 

WRITE (JTAPE, 2?) AHRAT GE0M268C 

IF (NER. NE.O) WRITE! JTAPE, 89 )NEP GECP2690 

XFC (NH+ 1,1) — X(NG) GEGM2700 

GE0P2710 

FIX CALCULATION POINTS GE0P2720 

GECM2730 

K IS THE INDEX ON CALCULATION POINTS. IT RUNS FROM 1 TO NLAST , WHIGECM2740 
IS AT TEE VERY ENC OF TEE COMBUSTOR. GE0M275C 

J IS THE INOEX ON HOLE ROWS. IT EQUALS NWH FOR THE FIRST CALCULATIGE0M276C 
POINT ( K » 1 ). GECM2770 

l IS THE INDEX ON GEOMETRIC INPUT POINTS. GE0M2780 

K2 * 1 WHEN THERE ARE HOLES ON BOTH WALLS AT THIS CALCULATION PCINGEGP2790 

JA IS THE VALUE OF J AT TEE MCST RECENT HOLE ROW ON THE INNER WALLGE0M2800 

JR IS THE VALUE OF J AT THE MOST RECENT HCLE ROW ON THE CL'TER WALLGE0M28 10 

LA APPLIES MAINLY TO CONTINUOUS COOLING SLOTS. IT RUNS FROM 2 TO 6GE0M2820 
INTERVALS OF XlNT CCWNSTREAM CF EACH SLOT ON THE INNER WALL GE0M283CS 

LB DOES THE SAME CN THE OUTER WALL GE0M2840 

L • 1 IF THERE IS A FRESH HOLE AT THE CURRENT CALCILATION POINT GECM2850 

NC ODE AIK) * l WHEN THERE IS A COOLING SLOT ON THE INNER WALL AT GE0M2660 


THE CURRENT CALCULATION POINT. 


GECM2870 


IX RUNS FROM 1 TO 6 FCR THE VARIOUS HOLE ROWS AT EACH CALCULATION GEOM208O 
NABX(K) * 1 IF THERE ARE HCLES ON THE INNER WALL AT THIS CA CLLATIGE0M289O 

NABX(K) * 2 IF THERE ARE HOLES ON THE OUTER WALL AT THIS CALCULATIGE0M2900i 

NABX(K) - 3 IF THERE ARE HOLES ON COTH WALLS AT THIS CALCULATION PGE0M2910 

NABX(K) - 4 IF THERE ARE NO HOLES AT THIS CALCULATION POINT GE0M2920 

CECM2930 

1-1 GECM294G 



'••••< 





J=NWH-1 


GE0P2950 


JL AST* J 


GECM2960 


K2*0 


GECP2970 


NSHCP*0 


GE0P2980 


JA*NH 


GEOP2990 


JB*NH 


G EC M 3000 

112 

K*K+l 


GECP3010 


IX*i 


GECM3020 


I F (K«GT» KMAX ) GOTO 199 


GE0K3030 


IF(JA.EQ.JB.ANC.NAB(JA).EQ.1.AND.JA.LE.NH) 

JB*JA*1 

GEGF3040 


IF(JA.EQ.JB.AnD.NAB(JA).EC.2.AND*JA.LE.NH) 

JA-JB41 

GECM30 50 


XCP ( K 1 *API Ni (XFC( JAiLA) «XFC ( JB t LB ) * XFC ( J*1 

,U> 

GE0M3060 


IF (A8S (XCP (K)-XFCU*L»1))/XCP(K).LE. 0.00001) XCP <K)*XFC ( J+ 1. 1 ) 

GE0K3070 


I F ( XCP (K)*EQ«XFC(J+l f 1) )GOTC 125 


GECP3080 


IF(XCP(K).EQ.XFC< JA f LA) )GCT0152 


GF CM 3090 

154 

IF(OXHUU).NE.O..OR.LB«NE«1)COT0109 


GE0M3100 


NCCOER (K)*l 


GEQM3110 


NABX (K)*2 


GECM3120 

109 

L*LB 


GECM 3 130 


LB*LB+ 1 


GE0N3140 


IF(k2.EC.1 )LA*LB 


GEOM315C 


IF(LB.LE.5)G0T0153 


GECM3160 


LB-1 


GE0M3170 


JB-NH+ 1 


GECM3180 


GCTG153 


GE0M3190 

125 

J-J+i 


GE0P32CC 


IFIJ.EQ.NH+1) GC TC 150 


GECM32 10 


IF(J.EQ.NSH)NSHCP*K 


GE0H3220 


JKSM J)-K 


GE0M3230 


IFtNHTU(J).EQ.O) Gc TO 1250 


GEOM3240 


IF (NAB(J).KE.1)G0TC128 


GECM3250 


IF(CXHU(JUEQ.O.)NCODEA(K)*1 


GE0M3260 


JA- J 


GEOP3270 


LA*2 


GE0M328C 

128 

I F (NAB ( J) «NE .2 )G0T0130 


GECP3290 


IF(DXHG(J)*EQ.O«) NCODEB (K ) *1 


GE0M3300 


JO* J 


GEOM3310 


L G=2 


GE0M332C 

130 

L= 1 


GECM3330 


NABX(K)*NAB(J) 


GECM3340 


K2*0 


GECM3350 


GCTC153 


GE0M336C 

1250 

IF(ABS(XH( J)-XFC(JA.LA) )/XM JJ.LE.O.OCOOl) 

LAM.A41 

GEOP3370 


IF(ABS(XH( J)-XFC( j8,LBn/XH(JJ.LE.C.0CCCl) 

LB-LB+l 

GECM3380 


NAB X ( K )«4 


GECM3390 


KJSN(K ( 1)-J 


GE0M34 0C 


IF(LA.LE.5) GC TO 1251 


GECP3410 


LA-l 


GECH3420 


JA-NH+ 1 


GE0M3430 

1251 

IFILB.LE.5) GO TO 153 


GE0M344C 


LB-1 


GECP3450 


J8*NH*1 


GECP3460 


GO TO 153 


GE0M3470 

150 

NLAST-K 


GEOM3480 


XCP(K)«X(NG) 


6E0P3490 


FFIZ (K)*0. 


SE CM 3500 


FTACPI-FTA (NG) 


GE0K3510 


FT8CPI*FTB(NG) 


GE0R3520 


CACPI-CA(NG) 


GE0M3530 


CBCPI-CB(NG) 


GE0P3540 


NABX (K) *4 

GECP3550 

TCASA(K)*TCASA(K-1) 

GECP3560 

TCASB( K)*TCAS8(K-1) 

G ECP3570 

GOTO 1345 

GECP3580 

152 IF(UXHU(J).NF.0..CR.LA.NE.i)G0T01C2 

GEON3590 

NCCOEA (K)*l 

GE0P3600 

NABX (K)*l 

GECM36 10 

102 L*IA 

GECP3620 

la.la+i 

GEOP3630 

IF(K2.EG.1)LB*LA 

GE0*3640 

IF(LA.LE.5)G0T0i53 

GECr 3650 

LA* l 

GECK3660 

ja*nh+i 

GE0P3670 

IF(K2.NE.l ) GOT 0153 

CE0P3680 

JB*NH+1 

GE0P3690 

LB* l 

GECP3700 

GE0N3710 

QUANTITIES REQUIRED At EACH CALCULATION POINT 

GE0P3720 

GECP3730 

153 IF(JLAST.NE.O) GO TC 1530 

GE0P3740 

TCASA(1)*TCATAU) 

GE0P3 750 

TCASB(l)*TCATE(n 

GE0P3760 

FBTUT=FFB( 1 ) 

GECP3770 

CC TC 154C 

GE0P3780 

1530 IF(JLAST.NE.Nh) GO TO 1541 

GECP3790 

TCaSA(K)=TCASA(K-1) 

GE0P380C 

TCASBIK)=TCASBIK-l) 

GECP381C 

FBTCT*F0LAST 

GECP382C 

GO TO 1540 

GE0H3830 


TCASA(K>*FlATL<XCP{K) f XH<JLAST),XMJLAST+l),TCATA|jUST)»TCATAUI.AGE0P385C 


IST+1) ) 


GECP3860 


113 


134 


TC AS B ( K ) = F I NTL < XCP { K ) , XH ( JL A S T ) » XH ( JLA ST + 1 ) t TC AT 8 ( JL AST) ,TCATB( JLAGECN3870 
1 S T+- 1 ) ) GECP38PC 

1540 FFI Z {K) = FBTCT-FELAST GEGP3890 

FBLAS T=F8T CT GE0P3900 

IF(X(I).GE.XCP(K) )GCTC134 GE0M3910 

1*1+1 GECP392C 

GCT011 3 GE0P3930 

FTACPI*FIML(XCP(K),X( I-H,X(I),FTA( I-1),FTA(I) ) GECP394C 

FTBCPI = FIML(XCP(K),X( I-l) « X ( I)*FTBI I-1),FTB( I) ) GE0M3950 

CACPI *FIN r PP ( XCP !K)»X(I-2)»X( 1-lltXIII ,CAi 1-2 ) , CA ( I- 1 ) ,C A ( I ) ) GEGP3960 

CRCPI-FINTRP{ XCP(K),X(I-2),XU-l).X(n,CBU-21,CBU-U,CB(in GE0P3970 

1345 IF(NRFCT.EC.2)G0T0136 GECF3980 

135 AFT(K)«P14*(FTBCPI*FTBCPI-FTACPI4FTACPI) GE0P3990 

AANAIK)*P!a*(FTACPI*FTACPI-CACPI4CACPI) GE0P4000 

AANB ( K ) *P 14* ( C8CPI *CBCP li-FTBCP I4FTBCP I ) GE0P4010 

CCA(K)*PI*CACPI GECP4020 

CCB(K)«Pl*CeCPI GE0P403O 

CFTA(K)*PI*FTACPI GE0P4040 

CFTB(K)=PI*FT8CPI GECN4050 

OFT(K)*FTBCPI-FTACPI GE0P4C6G 

OANA(K)*FTACPI-CACPI GECP4070 

OANB(K)*CBCPI-FTBCPI GECP4080 

GCTC116 GEOP4090 

136 AFT(K)*(FTBCPI-FTACPI)*WICTH1 GECP41CC 

AANA { K )* ( FTACPI-CACP I)*WICTHI GECP4110 

AANB ( K )* (CBCPI-FTBCP1 )*WICTH1 GI0M4120 

CCA(K)*'mI0TH1 GEOM4130 

CCB(K)*W|0TH1 GICP4140 



* 


* * * * 

C FT A ( K )*W1DTH1 
CFTB(K>«WlDTHi 
DFT(K)-2.*(FTBCPl-FTACPn 
DANA(K)*2«*(FTACPI*CACPI) 

DANB(K)«2.*(CBCPI-FTBCPI) 

116 AAMA(K)-AANA(K)«CCS(ATAN((CA(1HFTA(U-CA(I*1)-FTA(I-IU/ 

1 l2.*HtlIH!l.ll)ll) 

AANB (K )■ AANB ( K) *CLS( ATAM ( CB( I ) + PTB( 1 )-CB( 1“ 1 )**F TB( I- 1 )) / 

i i 2 .*(x<n-M!-n>>)> 

IF (K.EQ.NLAST)GC TC 111 
IF(L.EC.l)GCTCl51 
NA8X ( X )»4 
G0T0112 
K JSN (K » IX I* J 
IF (J.EQ.NF) GOT 01030 
IfUhI J+U.LE.XH l J>) GO TC 1310 
JtAST-J 
GCTC112 


139 


151 

103 

1030 


C advance j until all hgle rcns at this calculation point completed 

l3l 0 J*J*l 

JKSMJI-K 

I F (NAB( J ) • NE • 1 )COTG 132 
JA* J 
LA *2 

132 IF(NA8(J).NE.2)G0TC149 
JB*J 
LB«2 

169 IX-IX+1 

IF ( IX*GE*7 JG01C193 

IF(K2«EQal .OR* NAB »4-l).EQ.NA8(Jl) GOTO 151 
NABX(K)«3 

IF(NAe(J).EC.l.ANC.CXHO(J).EC.O. )NCCDEACK)«1 
IF (NAB ( Ji . EG *2 • ANOaCXHU ( J ) «EQ«0* )NC0DEB(K)«1 
K2«l 
GCTC151 

C CHANGE DIAMETERS OF ANNULAR COMBUSTOR TO RAOII 

111 I F (NRECT «EG« 2) GOTO 163 
DG 164 1*1, NG 
CAm«CA(n/2. 

SA(n*SA(I)/2. 

FTA( Il«FTA(n/2. 

FTB( n»FTB(I)/2. 

sri i i-sem/2. 

164 CB ( I ) *CB( I )/2« 

C SET INDICES REQUIRED IN OIFFUSER SUBPROGRAM 
163 1*0 

C MCVE TC FIRST ROM ON MALL 

138 I«I+l 

if(X{ n.LE.xcpiinco to isb 

.i>NABX(l) 

C-C TC ( 139 *140 » 14 1* 142 ) • JJ 


GE0M4150 

GE0M4160 

GE0F4170 

GECP4180 

CECM4190 

GEOM4200 

GECP4210 

GECM4220 

GE0M4230 

GECP4240 

GE0M4250 

GECP426C 

GE0M4270 

GEOM4280 

GE0K290 

GECM4300 

GECM4310 

GECM4320 

GE0M4330 

GECM4340 

GE0M4350 

GE0M4360 

GE0M4370 

GECP4380 

GECM4390 

GE0M4400 

GE0P441C 

GECP4420 

GECR4430 

GE0M4440 

GE0P4450 

GE0P4460 

GECP4470 

GE0M4480 

GE0M4490 

r,ECP4500 

GE0R4510 

GE0M4S20 

GEQM4530 

GECF*?54C 

GECP455C 

r*E0M4560 

GE0M457C 

GECP4580 

GECM590 

GECN4600 

GE0M461C 

GE0P4620 

GECM46 30 

GECM4640 

GE0M4650 

GE0M4660 

GECP4670 

GECM468C 

GE0M4690 

GE0M4700 

GECP4710 

GECM4720 

6E0M4730 

GE0M4740 



140 


C FIRST RCN ON INNER NALL 

139 Nx0IFA«I-l 

143 K*K+ 1 

IF (NABX(K ).N£.2«ANC.NABX(K )«NE«3)60 TO 143 

145 IF(xm.GT.XCRnO)6C TO 144 
I-I + l 

GO TO 145 

141 NXOI FA* !-l 

144 NX01FR*I-1 
GC TO 146 

C FIRST RCW CN CUTER NALL 

140 NXDIFB*I-l 
148 K«K+1 

IF(NARX(K).NE.1.ANC.NABx(K).NI.3)G0 TO 14C 

159 IF(X< I ).GT.XCP(X))GC TO 16C 

i«i*i 

GC TO 159 

160 NXDIFA* I-i 

146 CONTINUE 

OCTl ID A| 

193 NRITE(JTAFE»93)J 
GCT0200 

199 WRITE (JTAPEf9S)J 
GC TO 200 

142 NRITEIJTAPE.9U 

200 STOP 
C 

END 

YOUR CARD TOTAL IS 51C 


GECN4750 
GECP4760 
GE0P4770 
GECP4780 
GECN4790 
GE0P4800 
GE0P461C 
GECP48 20 
GECM830 
GE0P4840 
GE0P485C 
GECM860 
GECP4870 
GICN4880 
GE0P4890 
GE0P49C0 
GECM4910 
GECP4920 
GE0P4930 
GE0P4940 
GECP4950 
GE0M4960 
GE0P4970 
GE0P4980 
GECP4990 
GEGP5000 
GEOM501Q 
GE0P5020 
GE0P5030 
GE0P5040 
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SIBFTC DIFL 

SUBROUTINE OIFLOW 

THIS SUBROUTINE CONTROLS THE DIFFUSER CALCULATION 


NOIFF CONTROLS 
PERFORMANCE 

1 IN TEN POSITION 

2 IN TEN POSITION 

1 IN UMT POSITION 

2 IN UMT POSITION 

3 IN UMT POSITION 
POSITIVE SIGN 
NEGATIVE SIGN 


THE METHOD OF CALCULATING THE DIFFUSER 


USE STREAMTUBE ANALYSIS UP TO SNOUT 
USE EMPIRICAL DATA UP TO SNOUT 
USE STREAMTUBE ANALYSIS AFTER SNOUT UP 
USE EMPIRICAL OATA AFTER SNOUT LIP 
USE MIXING ECUAT ION AFTER SNOUT LIP 
USE EFFECTIVENESS PLOT 
USE SPECIFIC DIF.FUSER DATA 


DIFLOOIO 

DIFL0020 

DIFL0030 

DIFL0040 

DIFL0C50 

OIFL0C60 

DIFLQ070 

DIFL0C80 

0IFL0090 

DIFL0100 

DIFLOIIO 

DIFL0120 

DIFL0130 

DIFL0140 


OIFL015O 

COMMON/82/ RAD(16) * OELTA ( 2* 50 ) * EE 1( 2 ) *UJ( 15 ) * THA*THB«THS*PRES(50) *DIFL0160 
lNGO* NHAYf ZZRtZZGAMAf BETA1* BETA2*XMVA*XMVB*XMVS» ZZCP*IDIF 0XFL0170 

2 »HSEP y FLAREA(SO) » AREA( 50 ) DIFL0180 

CCMMON/B12/ X( 120) »CA( 120 ) »CB( 120 )«SA( 50) * $B( 50) * 0IFL0190 

1NRECT »NXDIF*NDIFF*NSNGUT*NXDIF1*NX0IF2*NXDIFA*NX0IF8*NTUBE* DIFL0200 

2PRESIN, BLOCK i 30 ) » ABLOCK* SHAPEHI 2t 50) t 0IFL0210 

3 VPDATAflS } yRDATA 1 15) t NUPRt AROTAf 2C0)*XLNDTA(20)*EF0TA(200) «NCDFf 0IFL0220 
ANYDFy NZDF*E1DT A* NXDF* AREF.WICTH1, 0IFL0230 

5XMACH* RHOREFyEFOTt 3) DIFL0240 

COMMON/BI 26/ AF2t TANIA* TAN 1B» PAN 1 A* PAN 10 » AFA«AFB»PREDM* STAGT0IFL0250 

1 » IBL* STPREF* PNRTA* PNRTB* DPHSNT*DOMLOS 0IFL0260 

C0MM0N/B12678/JT APE ,IPRINT DIFL0270 

COMMON/BZERO/ALPHAK 50) * ALPHA21 50 )* ALPHA3( 50) *ALPHA4( 50) *DMY(400) 0IFL0280 
COMMON/BPLOS/PLOSSC2) DIFL0290 

DIMENSION ASTARI 2) » ARAT ( 3 ) » AFUNC 3 )* OPT( 3 )*AR( 2) *CPID( 2 ) *CPAC (2)* DIFL0300 
1 AF (2) *FDLS(3) DiFL0310 

0IFL0320 
DIFL0330 
DIFL0340 
OIFLO350 
OIFL0360 
DIFL0370 
DI FU '80 
DIFL0390 
DIFL0400 
DIFL0410 
DIFL0420 
DIFL0430 
DIFL0440 
DIFL0450 
0IFL0460 
DIFL0470 
DIFL0480 
DIFL0490 
0IFL05O0 
DIF10510 

CALCULATE DIFFUSER PERFORMANCE FROM COMPRESSOR EXIT TO 7MI IIP OF DIPL0520 
SNOUT CR TO THE OOME DIFL0530 

DIFL0540 

GO TO (IOC *140)*NWAY DIFL0550 

100 CALL TU8C1S DIFL0560 

IF (IBL) 140*140* 1401 DIFL0570 

140 NWAY-2 DIFL0580 

IFINGC l 1400*141*1400 0IFL0590 


8765 FORMAT (7H0DIFLCW10F11. 3/ (7X10FU.3)) 

CALCULATE GAS PROPERTIES AN 0 CHOOSE ROUTING THROUGH OIFFUSER 
SUBPROGRAM 

IBL*1 

IDIF-0 

IF (NRECT.EC.2) AF2-AF2/WI0TH1 

CALL GASTBLIOl *02* 03*D4*-1*06*ZZR*ZZGAMA) 

ZZCP*ZZR*ZZGAMA/(ZZGANA-1.) 

IF(NDIFF) 90*99*98 
90 IOIF-1 

NDIFF— NDIFF 
GO TO 99 

98 IDIF*0 

99 NWAY-NCIFF/10 

NGO ■NDIFF - NHAY*10 
IF(IDIF.EO.l) NDIFF— NOIFF 
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141 NG0=2 
IBL=1 

1400 CALL EFPCTS 

IF (IBL ) 1401 *900*1401 

1401 IF(NSNCUT.EO.l) GO TO 150 
102 PREOM*PRES(NXDIF) 

111 A1*0. 

B1=0. 

GO TO (1570, 1580), NRECT 

CALCULATE VARICUS GEOMETRIC PROPERTIES OF THE ANNULUS DIFFUSER 

150 CALL SLOPE (X,CA,NXOIF , NXDIFA, ALPHAl, NXDIFA41 ) 

CALL SLOPE (X,S A, NXDIF42, NXDIFA, ALPHA2,NXDIFA4l) 

CALL SLOPE (X,CB, NX OIF ,NXDIFB, ALPHA3,NXDIFB4l ) 

CALL SLOPE (X, SB, NXDIF42,NX0IFB,ALPHA4,NXDIFB41) 

NXDFl=NX0IF4l 

NXCF2=AX0IF+2 
NXDFA1=NXCIFA-1 
NXDFBl=NXCIFB-l 
DO 1500 I=NXDIF,NX0F1 
ALPHA2 ( I ) * ALPHAl ( I ) 

1500 ALPHA4U) = ALPHA3U) 

00 151 I s NXOIF,NXDIFA 
DD=i. 

DE=1. 

IF (ALPHAl (I)*LT*0«) D0=-1. 

IFCALPHA2 (I).LT.O.) DE=-1. 

ALPHAl (I)=DD*ATANC00*ALPHA1C I)) 

151 ALPHA2 ( I )=DE*ATAN( 0E*ALPHA2( I ) ) 

00 152 I=NX0IF,NXOIFB 

DD=1« 

DE=1 • 

IF(ALPhA3(I).LT.O.) 0C=-1 
IF (ALPHA4 (I).LT.O.) DE=-1. 

ALPHA3 ( I ) =0D*ATAN( DO* ALPHA 3 C I ) ) 

152 ALPHA4(I)=0E»ATAN(DE*ALPHA4( I)) 

156 A=(ALPHAUNXDIF+l)4ALPHA2lNX0IF4in/2. 
B=(ALPHA3(NXDIF4l)4ALPHA4(NXDIF4in/2. 

Al = ( ALPHAl (NXDIFA)4ALPHA2( NXOIFA D/2. 

B1 = (ALPHA3(NXDIFB)4ALPHA4(NXDIFB) )/2. 

GO TO (157, 158), NRECT 

157 THAl=(SA(NXDIF4l)#*2-CA(NXDIF4l)**2)*3. 141593 *COS(A) 
THBl=(CB(NXDIF4l)**2-SB(NXDIF4l)**2)*3. 141593 •COS(B) 

THS1*( SB (NX0IF4l)**2-SA(NXDIF4l)*«2)*3. 141593 

1570 SUMA=( SA(NXDIFA)**2-CA(NXDIFA)**2)*3. 141593 
SUMB* (CB ( NXOIFE) **2- SB( NXDIFB )*«2 )*3. 141593 
GO TO 159 

158 THAI* { SAC NX0IF41 )-CA( NX0IF41 ) )«COS( A ) 
THBl*(CB{NXDIF4l)-SB(NXDIF4l)|*C0S(B) 
THSl*SB(NXDIF4l)-SA(NXDIF4l) 

1580 SUMA* ( SA (NXOI FA) **CA( NXDIFA) ) 

SUMS* (CB(NXOIFB)— SB(NXDIFB) ) 

159 CONTINUE 

GO TO (1590,1591, 1592), NGO 

1590 CALL TU8STA 
GO TO 1600 

1591 CALL EFPSTA 
GO TO 1600 

1592 C0R1-0. 

C0R2-0. 


DIFL0600 

OIFL0610 

DIFL0620 

0IFL0630 

DIFL0640 

DIFL0650 

OIFL0660 

DIFL0670 

0IFL0680 

DIFL0690 

OIFL0700 

DIFL0710 

DIFL0720 

DIFL0730 

D1FL0740 

DIFL0750 

DIFL0760 

0IFL0770 

0IFL0780 

DIFL0790 

0IFL0800 

DIFL0610 

0IFL0820 

0IFL083C 

0IFL0840 

0IFL0850 

DIFL0860 

DIFL0870 

DIFL0880 

DIFL0890 

DIFL0900 

DIFL0910 

0IFL0920 

0IFL0930 

DIFL094C 

DIFL0950 

DIFL0960 

0IFL0970 

DIFL098C 

DIFL0990 

DIFUCOO 

DIFL1010 

0IFL1C20 

DIFL1030 

DIFL1040 

DIFL1C50 

0IFL1C6C 

DIFL1070 

OIFL1C80 | 

DIFL1090 I 

DIFL1100 

DIFL1110 

01 FL1120 | 

DIFL113G 

0IFL114C 

DIFL1150: 

DIFL1160: 

DIFL117C 

DIFL1180I 

D1FL1190; 

OIFL1200 
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00 240 I-NXDF2 » NXDFA1 

TURN*ABS( ALPHAlt Il-ALPHAK I-l)+ALPHA2t 1 )-ALPHA2( I-l))/2. 

RADC- (X(I)-X(I-l) ) /COS ( < ALPHA1 ( I ) +ALPHA2 ( 1)1/2.) /TURN 
C«(SA(I)-CA(I) )*COS( ( ALPHA 1( I )+ALPHA2( I ) )/2. ) 

DHY-1. /32./2 •*( (SA(NXDIF+1 )-CA( NXDIF+1 ) )*COS ( A )/C)**2 

240 C0R1 -C0R1 +DHY*(0. 124+3. l*SQRT(C/2./RA0C))*TURN/3. 14159 
DO 241 I-NX0F2 *NXDFB1 

TURN- AES ( ALPHA3( I 1-ALPHA3C I-11+ALPHA4C I )-ALPHA4( 1-1) ) /2* 

RADC* (X(I)-X(I-l) ) /COS ( ( ALPHA3 ( I ) +ALPHA4 (I ) )/2.1 /TURN 
C-(CB ( I )~SB( I ) )*COS( ( ALPHA3( I1+ALPHA4C 1 ) )/2. ) 

OHY-1 • /32./2.*( ( CB( NXDIF+1 )-SB(NXDIF+l ) )*COS(B )/C)«*2 

241 C0R2 -C0R2 +DHY*(0. 124+3. l*SQRT(C/2./RA0C) >*TURN/3. 14159 
1600 IF (NRECT. EQ.2) AF2-AF2*WIDTH1 

DPHSNT-STPREF-PREOM 
• AG*A 
BG-B 
RETURN 

■ DIFFUSER CALCULATION ENTERED HERE DURING MASS FLOW ITERATION 
ENTRY DIF LW 

IF (NRECT • E0.2) AF2-AF2/WI0TH1 

AF(1)=AFA 

AF(2)*AFB 

IF (NSNCUT • EQ. 1 ) GO TO 200 

PRESSURE OCWN STREAM OF OIFFUSER CALCULATED AS AN ISENTROPIC 
EXPANSION FROM PRESSURE(DOME) AND TSTAG. 

165 PREM«STPREF-DOMLOS*(STPREF-PREDM ) 

PNRTA=STPREF-DOMLOS«OPHSNT 

PNRTB-FNRTA 

ASTAR ( 1 )=AFA*SGRT ( ZZCP*STAGT*( ZZGAMA-1. )*32. )« ( l.+( ZZGAMA-1. )/2. 
1 ** ( ( ZZGAMA+1 • ) / ( ZZ GAMA-1. )/2.)/(PREH *32. )/( ZZGAMA) 

ASTAR (2)= ASTAR (1 )*AFB/AFA 
AAS-SUPA/ASTARU) 

CALL GASTBL( AAS,TT0,Z,D4, 1, IBL*D7»D8 ) 

IF(IBL) 900.900,166 

166 PAN1 A= Z *PREM 
TAN1A=TT0#STAGT 
AAS-SUMB/ ASTAR (2 ) 

CALL G ASTBL( AAS. TTO.Zt 04. 1. IBL«07.D8 ) 

IF(IBL) 900,900,169 

169 PAN1B=Z*PREM 
TAN1B=TT0*STAGT 
DP=(STPREF-PREM l/STPREF 
IF(IPRINT) 190, 190, 170 

170 CALL DCUTPMNSNOUT ,PREM ,PAN1A,D4, 05,06,07, 3, 1,D8,DP) 

CALL DOUTP1(NSNOUT,PREM , PAN1B,04,D5, D6, D7, 3, 2,D8»DP ) 

190 GO TO 900 

200 GO TO (210,220), NWAY 


USE STREAM TUBE ANALYSIS 

210 CALL TUBFW1 
GO TO 230 

USE EMPIRICAL DATA 
220 CALL EMP0T1 


DIFL1210 

DIFL1220 

DIFL1230 

DIFL1240 

DIFL1250 

DIFL1260 

DIFL127C 

DIFL1280 

DIFL1290 

DIFL1300 

DIFL1310 

DIFL1320 

DIFL1330 

DIFL1340 

DIFL1350 

DIFL1360 

DIFL1370 

DIFL1380 

DIFL1390 

DIFL1400 

DIFL1A10 

DIFL1420 

DIFL1430 

DIFL1440 

DIFL1450 

DIFL1460 

DIFL1470 

DIFL1480 

DIFL1A90 

DIFL1500 

DIFL1510 

DIFL1520 

DIFL1530 

DIFL1540 

DIFL1550 

DIFL1560 

DIFL1570 

DIFL1580 

DIFL1590 

DIFL160C 

DIFL1610 

DIFL1620 

DIFH630 

DIFL1640 

DIFH650 

DIFL1660 

DIFL1670 

DIFL1680 

DIFH690 

DIFL1700 

DIFL1710 

DIFL1720 

DIFL1730 

DIFL1740 

DIFL1750 

0IFL1760 

DIFL1770 

DIFL1780 

DIFL1790 

DIFL1800 

DIFL1810 
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MIXING EQUATION USEO IN DIFFUSING PASSAGE BEYOND THE SNOUT LIP 
USE SUCDEN EXPANSION OP CONTRACTION ANALYSIS 

230 THA=THA*COS(AG) 

THB=THE«C0S(BG) 

BETAS=1. 

ARAT(l)-THA/THAl 
ARAT f 2 )*THB/THfil 
ARAT I 3 ) *THS/THS1 
DO 235 I»l»3 

IF (ARAT (I)-l.) 232. 232*231 

231 AFUNU) = (3.*ARAT(n««2.-2.-ARAT(I))/4. 

H0LS(I)=0.5«{1,-1./ARATII)) 

GO TO 235 

232 AFUNI I )»ARAT( I )**2-ARAT ( I ) 

HOLS U}*(1.' “ARAT tl))*«2 

235 CONTINUE 

RHA -AFA/THA/XMVA 

RHB «AFB/THB/XMVB 

RHS * ( AF2-AFA-AFB) /THS/XHVS 

XV2S* { BET AS*XHVS 1**2 

XV2Aa(eETAI*XMVAI**2 

XV2B* ( EETA2*XMVB )*«2 

PANDA* PRES (NXDIF)-RHA*XV2A*AFUN( 1 )/32. 
PANOB=PRES(NXDIFJ-RHB*XV2B*AFUN( 21/32* 
PREDM=FRES(NX0IFI-RHS«XV2S*AFUNI 31/32. 

A* <AF A«ZZR/PANDA/THA1 1**2/ ( 2.«32. 18«ZZCP ) 

TSTAT* (-1 .+SQRT(l.+4.*A*STAGT M/2./A 
PLOSS { 1 )=HDLSC 1) *RHA*XV2A/64.36 
* RH2PA*PANCA/ZZR/TSTAT 
V2PRA=AFA/THA1/RH2PA 

A* (AFB*ZZR/PA,\tCB/THBl )**2/(2.«32. 18«ZZCP ) 

TSTAT * l-l.+SQRTI l.+4.*A*STAGT))/2./A . 

PLOSS (2)*H0LS(2)«RHB«XV2B/64.3G 
RH2PB=PANCE/ZZR/ TSTAT 
V2PRB*AFB/THB1/RH2PB 
TH A*TH A/CCS ( AG) 

THB*THE/C0$( BG) 

DPHSNT»RHS«(XMVS*ARATC3)Jf«2/2./32. 

. GO TO <300, 310, 2300 I.NGO 

MIXING EQUATION IS USED TO GIVE PRESSURE IN ANNULUS 

2300 THA=THA*CCS( AG) 

THB=THE«CCS( BG) 

ARAT ( I )*SUMA/TKA1 
ARAT I 2 )»SUMB/THBl 
BLN=0 • 

P AN1 A * P AND A+ ( 1 •+ 1 • / AR AT ( 1 ) ) * ( B ET A 1* l • /AR AT ( 1 ) ) «RH2PA* V2PRA*«2/64. 
PAN1B*PAN0B+ ( 1 .+ I./ARAT ( 2 ) )*( 8ETA2— l./ARATI 2) )»RH2PB«V2PRB**2/64. 

ALLOW FOR LOSSES DUE TO BENOS 

PAN1 A*PANl A“CORI*RHA*XV2A*{ THA/THA 1 )**2 
PAN1B*PAN3LB-C0R2*RH8*XV2B*CTHB/THB1)**2 

CALCULATE TEMPERATURE AND TOTAL PRESSURE LOSS 

8 * 1 . 

C— STAGT 


DIFL1820 

DIFL1830 

DIFL1640 

DIFL1850 

DIFLI860 

DIFL1870 

DIFLI880 

DIFL1890 

DIFL1900 

DIFL1910 

DIFL1920 

DIFL1930 

DIFL1940 

0IFL1950 

DIFL1960 

DIFLI970 

DIFL1980 

DIFL1990 

DIFL2000 

DIFL2010 

0IFL2020 

DIFL2C30 

DIFL2040 

DIFL2050 

DIFL2060 

DIFL2070 

DIFL2080 

DIFL2C90 

DIFL2100 

DIFL2110 

DIFL2120 

DIFL2130 

DIFL2140 

DIFL2150 

DIFLT.I60 

DIFL2170 

DIFL2180 

DIFL2190 

DIFL2200 

0IFL2210 

DIFL2220 

DIFL2230 

DIFL2240 

DIFL2250 

DIFL2260 

DIFL2270 

DIFL2280 

DIFL2290 

DIFL2300 

4DIFL2310 

4DIFL2320 

DIFL2330 

DIFL2340 

DIFL2350 

DIFL2360 

DIFL2370 

DIFL2380 

DIFL2390 

DIFL2400 

DIFL2410 

DIFL2420 
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A»IAFm*ZZR/SUMA/PANlA)««2/<2.*ZZCP*32.l 

OIFL2430 



TANlA«(-B4SQRT(B*B-4.*A*Cn/2./A 

DIFL2440 



PNRT A*PAN1A«(STAGT/TAN1A) **( ZZ GAMA/ { ZZ GAMA- 1* ) ) 

DIFL2450 



DPT<1I«(STPREF-PNRTA1/STPREF 

DIFL2460 



A* (AF { 2 ) *ZZR/SUMB/PAN1B>«*2/ 1 2.«ZZCP«32. ) 

DIFL2470 



TAN1B* (-B+SQRT (8*B-4**A*CI )/2«/A 

DIFL2480 



PNRTB*PAN1B*(STAGT/TAN1B)*«(ZZGAMA/<ZZGAMA-I.n 

0IFL2490 



0PT( 2 ) * (STPREF-PNRT8 l/STPREF 

DIFL2500 

c 



0IFL2510 

c 


PRINT CUT RESULTS 

DIFL2520 

c 



DIFL2530 



IF(IPRINT) 900*900,250 

DIFL2540 


250 

AR(1) »THA/THA1 

0IFL2550 



AR (2) *THB/THB1 

DIFL2560 



ARZ* ( SUMA/THA) «*2 

DIFL25T0 



CPIDCl)*(2**CBETAl-l.Ml.-l./ARZ J /BETA 1**2 

DIFL2580 



ARZ* < SUMB/THB) **2 

DIFL2590 



CPI0I2)*(2.MBETA2-1.I-H.-1./ARZ)/BETA2#*2 

DIFL2600 



CPACt 1)*(PAN1A-PRE$(NXDIF) )/tRHA*XV2A/2«/32* ) 

DIFL2610 


1/BETA1«*2 

DIFL2620 



CPACt2)=<PANlB-PRE$(NX0IF))/tRHB*XV2B/2./32.) 

DIFL2630 


1/BETA2**2 

DIFL2640 



DO 255 K*1 ,2 

DIFL2650 



CALL DCUTP1(NSNQUT»D2»D3*D4*CPIDC K1,CPACIK) *CPAC(K J/CPIOCK) *3* 

K* DIFL2660 


1AR(K) .CPTOO) 

DIFL2670 


255 

CONTINUE 

0IFL2680 



GO TO 900 

DIFL2690 

c 



DIFL2700 

c 


USE STREAMTUBE ANALYSIS IN DIFFUSING PASSAGES BEYONO THE SNOUT 

LIPDIFL2710 

c 



0IFL2720 


300 

CALL TUBSA1 

DIFL2730 



GO TO 900 

DIFL2740 

c 



DIFL2750 

c 


USE EMPIRICAL OATA IN THE DIFFUSING PASSAGES BEYONO THE SNOUT 

LIP DIFL2760 

c 



DIFL2770 


310 

CALL EFPSA1 

DIFL2780 


900 

IFINRECT.E0.2) AF2«AF2«WI0TH1 

DIFL2790 



RETURN 

DIFL2800 

c 



DIFL2810 



ENTRY CIFLW2 

DIFL2820 



IFINRECT.E0.2) AF2*AF2/WIDTH1 

DIFL2830 



IPN=I PRINT 

DIFL2840 



IPRI NT-3 

DIFL2850 



CALL TUBCTS 

DIFL2860 



IF(IBL) 1000*1000*910 

DIFL2870 


910 

CALL TUBSTA 

DIFL2880 



CALL TUBFHl 

DIFL2890 



IF(IBL) 1000*1000*920 

DIFL2900 


920 

CALL TUBS A 1 

DIFL2910 

1000 

I PRINT* I PN 

DIFL2920 



GO TO 900 

0IFL2930 



ENO 

0IFL2940 
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IIBFTC TBCT LIST 

SUBROUTINE TUeCTS 


SUBROUTINE TUeCTS TeCTCCIC 

T8CT0020 

THIS SUBROUTINE PERFORMS A STREAMTUBE ANALYSIS CF THE DIFFUSING TBCT003C 
SECTION IMMEDIATELY FOLLOWING THE COMPRESSOR CUTLET TBCTOCAO 

TBCT0050 

C CMMCN/B2/ RAC (16) , CELT A ( 2 , 50 J , EE 1{ 2 ),UJ ( 1 5) , THA , THE , THS .PRES (30 ) .T8CT0060 


lNGC»NViAY»ZZP»2ZGAMA»BETAl»BETA2» XMVA »XMVB» XMVS» ZZCPtlOIF TBCT0070 

2 »HSEP ,FLAPEA( 50) f AREA( 50 ) TBCTCC80 

COMMON/ BA/ DPR EF TBCT 0090 

CCMMOK/Bl?/ X(l20)tCA(l2C) f CB(12O)fSA(SC)«SB(S0)* TBCT0100 

INRECT « NXDI F *NC IFF* NSNCUT »NX0IF1»NXCIF2 ,NXD IFAtNXDIFB »NTUBE» TBCT0L10 

2PRESIN, BLOCK ( 50) * ABLCCK* SHAPEH (2 f 50) t TBCT012C 

1VFDATA ( 15) r RDATA ( 15) ,NUPR* ARDTA( 200) » XLNOTAl 20 ) ,EFDTA(20C) ,NCDF , TBCT0130 
ANYDF ,NZ0F,E1CTA» NXCFt AREF iWICTK, TBCTOIAO 

5XMACH»RHQREF»EFCT (3) TFCT015C 

CCMMCN/Rl26/AF2fTANlA»TANlBtPANlA»PANlBt AFA ,AFB,PRE0M.STAGTTBCT0160 

1 1 IBL fSTPRFF fPNRTA ,PNRTB, DPHSNT t COMLOS TeCTCITO 

COMMON/B 12678/JTAPE » IPRlNT TBCT0180 

CGPMON/eZERO/ aLF A( 50) • ALFB t 50 ) t ALFC( 50) ,VEL ( 2, 5 C ) *R0( 2 ,50 ) . TBCT0190 

lALFc(50),ASTAR(15)tSTAGP(l5),RH0( 15) » Y( 11 ) .YY ( 1 1 ),UJY(U ), API 2) » TECT02 0C 
2CUMMY(70), ALFC(5o) TBCT021C 

CCPMCN/B 2 TBCS/SHP( 2 ) t THET( 2 ),R 0 J( 2 ),VELJ( 2 ).SLMXJ(A) TeCT022o 

COMMON /B2TUB/ XMTB ( 15 ) , ATUfiE (1 5) , ALPHA ( 15 ) .CALC 15) tCBU 15) TBCT0230 


TBCT0070 
TBCTC080 
TBCT 0090 
TBCT0100 
TBCT0110 
TBCT012C 
TBCTO 130 
TBCTOIAO 
TPCT015C 


2 FCRMAT (91H SOLUTION FAILED TO CONVERGE 
2 1 CN CONTINUED USING EMPIRICAL DATA.) 


IN SUBROUTINE TUBE IN. 


TBCTOIBO 
TBCT0190 
2) » TECT020C 
TBCT021C 
TBCT0220 
TBCT0230 
TBCT02AC 
SOLUTTBCT025C 
TBCT0260 


3 FORMAT (9 1H SOLUTION FAtLEC Tc CONVERGE IN SUBROUTINE TUBANL. S0LUTTBCT02 70 


IICN continued using 

7 FCrMAT (86F SOLUTION 


EMPIRICAL DATA.) 


TBCT02S0 


FAILED TO CONVERGE AFTER AO CYCLES. SOLUTION CTBCT029C 


1 CNTINIED USING EMPIRICAL CATA./5AH THE LAST CALCULATED BOLNCARY LATeCT0300 
2 YER PARAMETERS ARE....) TBCTO 3 IO 

10 FORMAT ( 18H1*** ERROR MESSAGE) TBCT032C 

11 FCRMATUX//////18H ♦** ERROR MESSAGE) TBCT0330 

21 FCRMAT( IH1A9XK2H- ) »7HRESULTS3( 2H - ) //////21H0REFERENCE CCNDITI0NTBCTC3AC 

1 S/ 1 X 20 ( IH-j / I 5 HC REFERENCE AREA13X1MF 10.3, 6 H SQ FT/19H REFERENCE VTBCT0350 
2EL0ClTY9XlH«F10.1tllH FT PER SEC/18H INLET MACH NUM8ER10X1H-F10.3/TBCT0360 
322H REFERENCE MACH NUMBER6X1H*F 10. 3/29H REFERENCE DYNAMIC PRESSURE T8CT037C 
A =F10.2»4H PSI) TBCT0380 

22 FORMAT (115HCTHE DIFFUSER TREATMENT USED IN THIS PROGRAM BECOMES INTBCT0390 
ICREASINGLY INACCURATE AT INLET MACH NUMBERS GREATER THAN 0.7) TBCTOAOO 

TBCT0A1C 

SET UP GEOMETRIC VARIABLES TECT0A20 

TECT0A30 

LN*1 TECTOAAC 

I HLC* 1 TBCT0A50 

GC TO (101, 103) ,NRECT TBCTCA60 

LOl DO 102 I'lfNXDIF TeCTOATO 

AREAd )«3.1A159*(CB(I>**2-CA(I)**2) TBCT0A80 

B* ( l.-ABLOCK ) *BLOCK ( l ) TBCT0A9C 

DELTA(2,I)«CB(I)*(1.-SQRT( l.-B*( l.-(CA( I )/CB ( I ) )**2) ) ) TBCT05CC 


LN*1 TECTOAAC 

I HLC* 1 TBCT0A50 

GC TO (101, 103) ,NRECT TBCTCA60 

101 DO 102 I'ltNXDlF TeCTOATO 

AREAd )*3.1A159*(CE(I )**2-CA( I )**2 ) TBCT0A80 

B* ( l.-ABLOCK ) ABLOCK ( I ) TBCT0A9C 

DELTA(2»I)»CB(I)*(1.-SQRT( l.-B*( l.-(CA( I )/CB ( I ) )**2) ) ) TBCT05CG 

102 DELTAdrI »«CA ( I ) * (-1 .«SCRT ( !.♦ (BLOCK( I )-B )*( (C8 < I >/CA( I } >**2-1. ) )) TBCT0510 

AR(l)»3.lA159*(SA(NX0IFtl)*A2-CA(NXDIF*l)*A2 ) TBCT0520 

AR(2)«3.iAl59*(CB(NX0IF+X)*A2-SB(NX0IF+l)**2) TBCT053C 

GC TO 106 TBCTC5A0 

103 DO 10A I« 1 »NXCI F TBCT0550 

AREA(I )*CB ( I )-CA| I ) TBCT0560 

0ELTA(2,I )-AREA( I )*BLOCM I )♦( l.-ABLOCK) TBCT0570 

10A DELTAdt I)-AREA( I )*BLOCKII)*ABLOCK TBCT0580 

AR(i)«SA(NXDIF4l)-CA(NXDIF4l) TBCT0590 


on non non 


*••••••••* •*•••••••• 

AR( 2 )=CR(NXDIF + l)-Sa(NXDIF + l ) 

106 CC 108 I>1, KXCIF 
AIFG ( I )*0. 

FLAREAU )* AREA (1)<(1. -BLOCK (I) ) 

CAL ( I J*CA!I)+CELTA! 1,1) 

108 CBH1 )*C8l l)-CELTA!2, t) 

CALL SLCPE ( X, CA tl ,N X 0 1 F , AL FC ,NX0 IF U ) 

CALL $LCPE!X,CB,l,NXOIF,ALFD,NXOIFMI 

DC 1080 1*2 »NXDIF 

DC*1 

0E*l 

IFIALFCI D.Lt.O.I CC*-l 
IF ( ALFCI I).LE«0.)DE*-1 
AlFCU»»00*ATANICC*ALFC( I ) ) 

1080 ALFD H )*DE#AT AN!DE*ALFO! I ) ) 

CALCULATE INLET PRCPERTIES 
CC 1060 J= 1 , NUPR 

? 060 RDATAI J)*(RCATA(J) A(Cei 1 )-CA ( 1 ) ) +C A( l)-CAL(l) 
CALL TUBE! N < IRL,NRECT»FL AREA U),CAL< l)tCPL<l> 
1G1 ,VPDATA,RDATA,NUPR,Uj, ASTAR tSTAGP,RhO,XPT8» 
PRES!1)=PRESIN 
IF(IBL) l C8 1 1 1082* 1081 
1082 WRITE(JTAPE*11) 

WRITE! JTAPE»2 ) 

RETURN 

1081 DYHC=0. 

RH=C . 

CC 1084 J* 1 » NTUEE 
DYHO=DYHD+XM E! J)/Af ?*UJ! J ) 

1084 RH=RH+XFT8! J) /AF2*RF0( J) 

DYHD=DYHD**2*RH/2./ J2. 

VEL12* 1)=UJ!NTURE> 

VFLIl ,1) = UJI1) 

RC (2 » 1 ) * RHO(NTuBE) 

RC(l,l) * RF0(1> 

AlFA(1)=0. 

ALF0(1)*O. 

DC 1085 J* 1 * 2 
SUMXJI J )=0. 

SHP( J)=SHAPEH( J, 1 ) 

THETU) = DELTA(J.1)/SHAPEH( J, 1) 

RCJ( J)*RC! J, 1) 

1085 VELJ(J)=VEL( J.l) 


,4 Z 


* * 

T8CT0600 I 

T0CTO61C I 

TeCTo620 i 

TBCT0630 j 

T8CT064C 

TBCTC650 

TBCT0660 

TBCT0670 

TBCT06R0 

T8CTQ690 

TBCT0700 

TECT0710 

tBCT072C 

TBCT0730 

TECT0740 

TBCT0750 

T 8 CTO 76 O 

TBCTC770 

TBCT0780 

)/(CBL( l)-CAL(l)) TBCT0790 

* NTUBE »AF2*PRESIN,STATBCT0800 

STPREF * 1 ) TBCT081C 

T BCT08 20 
TBCT0830 
TBCT0840 
TBCT0850 
TBCTC860 
TBCTC870 
TBCT088C 
TBCT0890 
TBCTC9C0 
TBCTC910 
TBCT0920 ! 
TECT093C 
TBCTC94C 
-TBCT0950 
TBCT096C 
TBCT097C 
TBCTC980 
TBCT0990 
TeCTICCO 
Tecnoic 
TBCT1C20 
TECT1C30 
TECT1040 
TBCT105C 


CALCULATE REFERENCE PROPERTIES 

ASS= FLAREA ( l ) *0* 532*STPREF/AF2/SQR T( STAGT) 

CALL GASTBL(ASS*TSS*PSS»YKACH* l, I BL , ZZR, ZZGAMA ) 
ASS*AREF*ASS/FLAREA! 1) 

IF (NRECT .E0.2 ) ASS*ASS/ WI DTHl 

CALL GASTBL(ASS»TSS»?SS» XMACH»1» I6L»ZZK* ZZGAMA) 
DPREF*STPREF*(i.O-PSS> /144. 
UREF»XMACH*S0RT(ZZGAMA*ZZR*32.2*STAGT*TSS) 
IF(IPRlNT.EQ.i) GO TO 10B3 
WRITE OUT REFERENCE CONDITIONS 

WRITE! JTAPE *2 1 ) AREF*UREF,YMACH,XMACH*DPREF 
I F (YMACH.GE. .7 ) WRITE! JT APC * 22 ) 


TBCT1060 

TBCT1070 ' 

TBCT1080 

TBCT1090 

TBCTilOO 

TBCT1110 

TBCT1120 

TBCT1130 

TBCTU40 

TBCT1150 

TBCT11 60 

TBCTil 70 

TBCT1180 

TBCT1190 


o no nno 


* * * * * 

1083 DPREF*CPREF*144. 

C • 

IFINXC1F-1) 5000.5000,109 

ITERATION LOOP STARTS HERE 

109 ALFA ( l )*G • 

AlF8(l>*0. 

DC 11C 1*2 . NXC IF 

AlFA(I|»(CAl( Il-CALU-m/ (XU)-X(I-iM 
ALFO(n*(CBun-cBui-in/(X(n-x(i-n* 

CD* l 
DF*l 

IF (ALFA ( ( ) .LE.O. ) CC*-1 
IF (ALFB( I ) .L6.0. ) DE--1 
ALFA! I )*DD*ATAN(CC*ALFA( II) 

110 ALFBCI )*0E*ATANC0E*ALFB( II I 

115 CALL TUBANLI I FL.LN. ALFA.ALFB. IHLO.NXDIF.PRES, ASTAR.RHO * 
1STAGP »U J, VEL.RG, FLAR6A, ATUBE. STAGT .ALPHA ,N TUBE) 

IF(IBL) 120,120*130 
120 URITEIJTAPE.IU 
UKI?E( JTAPE.3 ) 

RETURN 

130 CALL NEMRAC IIBL .X.VEL.RO, CELTA.SS'APEh* 1.RX01F, IFiLO.CB.CA « 
l ALFC.ALFR, HSEPfNRECTi ALFG) 

IF ( I BL) 135.135.5CC0 
135 IA*LNU 

IFILN-40) IA0.1A0. 137 
137 WHITEIJTAPE.IOI 
MRITEUTAPE.7) 

GC TO 200 

140 DC 145 1*2 »NXCI F 
CALI I)*CA( I )+DELTA(l,I )*CCS( ALFCI II) 

CeLII »*C8in-OELTA(2,n*COS(ALFO( III 
GC TO 1 141 , 144 ) , NRECT 

141 BLOCK! I)*l.-( C0LI I)**2-CAL(I )**2)/(CB( I)**2-CA( I )**2l 
GC TC 145 

144 8 LOCK 1 1 ) * 1 • — < CBL ( I )*CAL(I) l/ICBl I )-CA( IH 

145 FLAREA(I)*AREA(I1*( 1 •-BLOCK! I)} 

GC TO 109 

CALCULATE OUTLET VELOCITY PROFILE 

5000 RAOIU-CALIAXCIF) 

GC TC (51C.515) .NRECT 
510 DC 512 J*l, ATUBE 

512 RADI JUI-SQRT I RAo(J>**2. ♦ATUBE (J)*COS (ALPHA! J)) /3.14159) 

GC TC 518 

515 DC 517 J* l.NTUBE 

517 R ADI J4 1 )*RAO C J ) ♦ATUBE* J )*CG$ (ALPHA (J 1 1 

518 OC 520 J-l.NTUBE 
520 RA0U)*(RAD(jnRAC(j4in/2. 

Y(i)«CAHAXCIF) 

DC 525 1*2,11 

525 Y(n*CAL(NXDlF)4(CEL(NX0IF)-CAUNXClFt)*O.l*(FLCATf I)-N) 
DC 530 1*1,11 
Yi*vm 

CALL 1 1 API I VI ,ANS,RAD,UJ,NTUBE ) 

UJYI I >*ANS 

YY(n*(Y(n-CAUiXCIF))/(CB (NXOIF)-CA j^XOlFM 


TBCT1200 

TBCT1210 

TBCT1220 ! 

TBCT1230 • 

TRCT1240 

TBCT125C | 

T ECT1260 | 

TBCT1270 

TBCT1280 

TBCT1290 ! 

TBCT1300 

TeCT1310 

TGCT1320 

TBCT1330 

TBCT1340 

TBCT135C 

TBCT1360 

TBCT1370 

TBCT1380 

TBCT1390 

TBCT1400 

TBCT141C 

TBCT1420 

TBCT1430 

TBCT1440 

TBCT1450 

TBCT1460 

TBCTH70 

tbctuio 

TBCT1490 

TBCU5C0 

TECT1510 

TECT1520 

TBCT1530 

TBCT1540 

TBCT1550 

TBCT1560 

TBCT1570 

TBCT15BC 

T6CT1590 

TeCT1600 

TBCT1610 

TBCT162 C 

TBCT163C 

TBCT1640 

TBCT1650 

TBCT1660 

TBCT1670 

TBCT1680 

TBCT1690 

TBCT1700 

TBCT1710] 

TBCT1720; 

TBCT1730 

TBCT174C, 

TBCT1750I 

TBCT17G0 

TBCT1770 

T8CT1780= 

T8CTl79a 


o o o 


* 


* *•••••••••* *•••• *...... 


530 

Y ( I J* ( Y ( I )-CAL(NXDIF H/(CEL(NXOIF l-CAL (NXD IF ) ) 

TBCT1800 

TBCT1810 


PRINT OUT SOLUTION 

TBCT182G 

TecTl830 


AR2*( AREA (NXDIF) /AREA! U)**2» 

TBCT1840 


CPICL-1.-1./AR2 

TBCT1 850 


CPACT* ( PRES( NXDIFI-PRESU) J/CYhO 

TBCT1860 


EFECTK-CPACT/CPICL 

TBCT1870 


CALL COUTPT I NSNCUT« CPI DL* CPACT# EFECTNfUJY # YY #Y* 1 1 

TECT1880 

200 

IFINRECT.N E.2) GO TC 202 

T8CT1890 


OC 201 1*1 ,NXCIF 

TBCT1900 

?01 

AREA! I)*AREA( I )*WI0TH1 

TBCT191C 

202 

call nehru pres# are a* block ) 

TBCT1920 


IFINRECT.NE.2I GO TO 204 

TBCT1930 


DC 203 1*1 fNXDIF 

TBCT194C 

203 

AREA! n*AREA< lI/WIOTHl 

TBCT1950 

2 04 

CONTINUE 

TBCT1960 


DO 2 1C K*l,2 

TBCT1970 


EElt K )*BLOCK (NXDI F)*0ELTA(K#NXDIF) /(DELTA! 2* NXOIFl+CELTAl 1 

tNXOlF) ITBCT1980 

210 

EE1(K)*1.~EE l(K) * ARE A( NXDIF )/AR(K ) 

T8CT1990 

900 

RETURN 

TBCT2000 


END 

TBCT2010 


YOUR CARO 


TCTAL IS 


203 



non nnno 
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*1 


* 
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* * * 


ilBFTC TBST 

SUBRCLTINE TUESTA 


THIS SUBRCUT I N£ PREPARES CATA FOR SUBROUTINE TUBSTA 

« 

CCRNCN/P2/ RAC(l6),CELTA(2»50)»EEl(2),UJ(15), THA » THB »THS » PRES (50) 
lNGC,NWAY,ZZR,ZZGANA f BETAl,BETA2,XMVA f XMVB,XMVS, ZZCP>10IF 
2 tHShP » FLAREA ( 50 ) , ARE A( 5C ) 

CCKPCN/E12/ X (120 ) , C A( 120)»C8( 120 ),SA( 5C) > SB (50) , 

1 NR EOT tNXOI F *NC IFF tNSNCUT yNXOIF i,NXCIF2»NXCIFA,NXDIFB »NTUBE, 
2PRESIN, ELCCK ( 50) , ABLCCK, SHAP EH ( 2 » 50 ) , 

3VFDATA { 15 ) t ROATA ( 15), NUPR, ARCTAI 200) ,XLNOTA( 20) ,EFDTA(20C) f NCDF f 

anyof,nzcf,eidta, nxof,aref,wicth, 

5XRACH,RHCPEF,EFCT(3) 

CCMMCN/BZERC/ ALPA (50) , ALPB( 5C ), At PC ( 50) f ALPDf 5C ) ,DUMMV( 400) 
CCMMON/ B2T ECS/ALFA (2, 50 )»AL( 2« 2, 50) » Wll( 2.50 ) , WCL(2» 50 ) t hi (2,50) • 
lfcC(2» 50 ),Arr( 2» 50 )»E CL T( 2, 2 ) » SHAPH ( 2» 2 )#NX (2 ) «NXDO( 2 )»ARF(2 *50) , 
lSHPP(?,2)»THFTT(2.2)#SUMXJJ(2 t 2),R0JJ(2 ),VELJ4(2) 
CCPMCN/fi2TBCS/SHP(2)»THET(2)»R0J(2)»V£Lj(2)» SUMXJ (A) 

CALCULATE GEOMETRIC VARIABLES AND INPUT PARAMETERS 

KX(1)=NXDIF1 

NX (2 ) =NXC I F2 

NXDU ( 1 )=NXCI FA 

NXOD( 2 )=NXCI FE 

DELHI, 1) = 0ELTA< l.NXDIF) 

CELT ( 1 »2)=0. 

DELT(2,1)=0. 

DELT(2,2)=CELTA(2,NXDIF) 

SHAPHd ,l)=SHApEH( l,NXOIF> 

SHAPH ( i ,2 ) s i *4 
SHAPh(2,l)=l.A 
SHAPH (2,2)sSHAPEH(2,NXDIF) 

SHPP(1,1) = SHAPEH( 1,1) 

SHPPtl ,2) = 1.4 
SHPP (2,1 )= 1*4 
ShPP(? ,2)*SHAPEF(2,l ) 

THETT(1,1)*DELTA(1, D/SHAPEH1, 1) 

THETT( 1 ,2 ) =0 * 

THE T T ( 2 , 1 ) =C • 

THETT(2,2)*DELTA(2,1 )/SHAPEH (2, I ) 

SUPXJJd,! ) = SUKXJ( 3) 

SUMXJJ(l,2)*0. 

SLMXJJ(2,1)«0. 

StHXJJ(2,2)«$UMXJ(4) 

RCJJd ) = RCJd) 

RCJJ (2 ) = RCJ(2 ) 

VEL J J d ) =VEL J ( I) 

VELJJ(2)=VELJ(2> 

CALL SLCPE (X,CA,NXCIF,M.X0IFA,ALPA,NXCIFAM) 

CALL SLOPE (X,C8,NXCIF,NX0IFB, ALPS, NXOI FB*l ) 

CALL SL0PE(X,SA,NXDIF42,NX0IFA V ALPC,NXDIFA<*-1) 

CALL S LOPE ( x , SB ,NXO IF+2* NXCI F8, ALPO, NXDIFB+I) 

NX0Fl*NXDIF4l 
DC 115 I*NXC IF, NX0F1 
AL PC ( I )* ALPA( 1 1 
119 ALPO ( I )« ALPB( I ) 

SA (NXDIF)»CA ( KXO IF )*SA (NXCIF+1 )-CA (NXC IF^I ) 


TBSTCC01I 
TBST00021 
TBSTCC03 
TBST0004? 
TBST00051 
• TBST0006 1 
TBST0C07 
TBST00081 
TBST00091 
TBST0C1C 
TBSTCOill 
TBST0012I 
TeST0013* 
T8ST0014- 
TBSTCC15) 
TBST0016- 
TBST0017 
TeSTOOlP 
TBS TOO 1 5 
TBST0C2C 
TBST0021 
TBST0022 
TBST0023 
TBST0024 
TeSTOOB* 
TBST0026 
TBST0027 
TBSTCC2E 
7eST002S 
TBST0030 
TBST0031 
TBSTCC32 
TEST0033 
T8ST0J3* 
TBST003? 
TBSTCC36 
TBST0037 
TBST003( 
TBST003S 
TBSTCC40 
TeSTOOAl 
TEST0042 
TBST00A3 
TBST0G4* 
TESTOOA! 
TeST00A6 
TRST004 7 
TBST004H 
TBSTCCA'i 
TEST0050 
TBST0051- 
TBST0052I 
TBST0053 
TBSToOS^ 
TBST0053 
TBST005© 
TbSTCC 57_ 
TBST005(j 
TBST005? 



151 * 


•••••••*••• *•••••••••*•••••••••*••• 

SB (NXD IF )*S8 (NXCI F+l )-CB(NXDIF+1 )+C8( NXOIF ) 

OC 120 I » N * C I F tNXCI F A 

DD-1 

Df-1 

IF(ALPA(I) a LE»0«) 00*- 1 
IFtALPCII ).LE.O.) 06 — 1 

ALFA ( ltl )■ (CC*ATAN (CO* aLPA (I ))+0E* AT AN (CE+ALPCI I ) ) )/2* 

ki(i»n-c«m 

Mciiti)*s«m 

NIl(l,!)*k!( ltl ) ♦DELTA! 1, NXCI F )/COS( ALFA! 1,1 )) 

worn .n-wcu, n 

AL(l»l»I)*CC«AT4N(CC*ALPA( in-AlFA(l«n 

120 AL(l,2,U*0E*AT AN(06*ALPC( I)I-ALFAU*U 
00 121 I«NXCIF»NXO!FB 

00*1 
OR* 1 

I F (ALPR ( 1 ) «LE «0« ) CC»-1 
IFIALPCm.LE.O.) 06 — l 

ALFAI2»I )*(DO*ATAN(OD*ALPB( 1 ) )+DE*AT AN( CE*AL.PO( III 1/2* 
wi(2*n*sB<n 

WC(2,I)-CB(I ) 
kIL(2 tII*UI(2tI) 

WQL(2»n*WC(2.n-0ELTA( 2.NXCIF I/COSC ALFA! 2,1)) 
AL(2,2,n-00*ATANICC*ALPB( I))-ALFA(2,I ) 

121 AL(2fl,n»0E*ATAN(CE*A|.P0( I) )-ALPA (2, I ) 

CC 130 «*1 f 2 

NXO-NXCC(K) 

OC 13C 1*NXCIF ,NXC 
GC TO (125, 1271, NRECT 

125 ARR(K,I)«3.14159*(WC(K, 1 1**2 -WI(K,I)**2 >*COS ( ALFA ( K, I )) 
ARF(K» n*3.H159*(kOL(K,I)**2-WIL(K,n*P2)fCOSIALFA(K,III 
GO TC 130 

127 ARR(K,I)«(WO(K,n -V»I(K,l) ) ♦COS ( ALFAIK, I )) 
ARF(K,I)*(WOUK,n-WlUK t m«COS(ALFA(K,lM 

130 CONTINUE 

GC TO ( 131,132) , NRECT 

131 ARR( 1 ,NXoI FA )*3 *14159* ( SA( NXOI F A ) ♦♦2—CAINXDIFA )**2 ) 

ARR(2 ,NXDIFB )*3« 141S9*ICB( NXDIFB) **2-SB| NXDIFB )**2) 

GC TC 133 

132 ARR(1,NX0IFA)*SAI NXOIF A )-C A (NXOI FA ) 
ARR(2,NXDIFE)*CE(NXC1FB)-SB(NX0IFB) 

133 CONTINUE 
RETURN 
END 


TBST0C60 
TBST0061 
TBST0062 
TBST0063 
TESTCC6* 
T6ST0065 
TBST0066 
TBST0067 
TBSTC06R 
TEST0C69 
TBST0070 
TBST0071 
TBST0C72 
TBST0073 
TBS TOO 7* 
TBST0075 
TBSTOCTN 
T8STOOT7 
TBST0078 
TBST007q 
TBSTCC80 
TBST0081 
TBST0082 
TBST0083 
TBST008A 
TBST0085 
TEST0086 
TgST0087 
T8ST0088 
TBST0089 
TESTC090 
TBST0091 
TBST0092 
TBST0C93 
TEST0094 
TBST0095 
T8ST0096 
TBST0097 
TBST0098 
TBST0099 
TBST0100 
TBST0101 
TBSTO 102 
TBST0103 


YOUR CARO TCTAL IS 


105 


non o nr»r>r> 


ilBFTC T0AI 

SUBROUTINE 


TUESA 1 


THIS SUBROUTINE FERFORPS A STREATUfiE ANALYSIS IK THE DIFFUSING 
PASSAGES BETWEEN TEE SNOUT AND THE OUTER CASING 


T6A10010 
TB A1002C 
ieA10030 
TBA10050 
TRA1C05C 
rTBAl 006C 
TEAICC70 
TeAlOORO 
TRAIC09C 

tbaioloo 

TEAlOIlC 
TEA 10120 
TRA 10130 
TEA1015C 


COMMON /82/ R AD ( 16 ) * CEUTA (2, 50 )» EE l ( 2) * U'JI 15) * THA »THB ,1H$,PRES(50) 
lNG0,NWAY f ZZR,ZZGAPA,BETAi,BETA2,XMVA*XMVB*XMVS* ZZCP,IDIF 
2 »HSE P ,FlAREA( 50),AREA(5C I 
CCPMCN/R 12/ X(120)tCA(l20|fCB( 120 > » S A< 5C) t SB I5C ) » 
lNRECr,NXOIF,NCIFF«NSNOUT*NXDlFI,NXCIF2,NxOIFA t NXOIFB,NTUBEt 
2 PRES IN, BLOCK ( 50) * A BLOCK, SHAPEHC 2*50) » 

3VPDAtAU5),RCATA(15),NUPR, ARCTA (200) * XLNOTA ( 20 ) *EFOTA( 200 .NCOF, 

5NYDF tNZCF tEl DTAt NXCF * A REF ,W ICTH I » 

5XPACH,PH0REF»EFCT (3) 

CCPMON/Bi26/AF2,TAN1A,TAN1B,PAN1A,PAN10, AFA*AF8»PRE0M*$TAGTTBA1015C 

1 » I BL f STPREFt PNRT A ,PNRT B » CPHSNT , DOM LOS TEA 1C16C 

C0MM0N/B12678/JTAPE ,IPRINT TBA10170 

CCPPCN/B2TBCS/SHPI2 ),THET(2),R0J( 2),VELJI2)t SUMXJ(A) TBA10180 

CCMM0N/BZCR0/ARK(5C) ,YBL(50)f ALAI 50 ) » ALB (50 ,VEL ( 2 , 50 ) , TBA1019C 

2RC (?»50)»XX(5(J) * RC ( 15 ) » UJK ( 15 ) , AST AR C 15 ) , STAGP 1 15) * XMTBt 15) f RH0(15TeAl020O 
3) t ALPHA! 15 ) ,AtuBE(15 ),CUMMY(30 J TBAI02I0 

CCPPCN/R2TBOS/ALFA(2,5O).AL(2,2.5C),MILI2t5O)tNCL(2t5C).m(2.50) • TBA1022C 
lwr(2 f 5U),ARR(2,50),CELT(2, 2 ) * SHAPH< 2 *2 ) »NX ( 2 ) ,NXDD (?) *ARF ( 2,50) , TBA10230 

1SHPP(2,2) ,ThETT(2,2).SUPXJJ( 2,2),R0JJ( 2 )»VELJJ(2) 

C0MMCN/BPLCS/PLCSS(2) 

01 PENS ICN AF(2),YAL(50),ARRKI 50) 

E CUI VALENCE ( ARRK! I ) ,YAL! I ) ) 


1 FORMAT ( 7 1 H SOLUTION 
1 1 CN TERMINATED.) 

2 F CRPAt ( 71 H SOLUTION 
1 1 CN TFRMINATEC.) 

7 FORMAT ( 105 H THE STRE APTUR 6 
1 1 F N SNCUT ANO OLTER CASING 
2 RPINATEU.// 54 H 
3..) 

10 FCRPAT ( 18 H !♦** 


TEA102A0 
TBA 10250 
TBA10260 
TBA1C270 
TBA10280 

FAILEC TO CONVERGE IN SUBROUTINE TUBElN* SOLUTTBA 10290 

TBAI0300 

FAILEC To CONVERGE IN SUBROUTINE TUBANL. S0LUTTBA1031C 

TEA10320 

THE 0 IFFLSING PASSAGES BETNTEA10330 


THE LAST CALCULATEC BOUNOARY LAYER PARAMETERS 
ERRCR MESSAGE) 


SET UP VALUES NEECEC IN THE DO LOOP 

NXOr 1*NXDIF«-1 
Ar ( l ) s AF A 
AF (2 ) *AFB 

XX (NXO IF }»X( NXCIF) 

GC TC ( 190,195) ,NRECT 

190 WCL(1» NX DIF)*5CPT(CA(NXCIF)*52*T HA/3,151 59) 
NIL(2,NXCIF)«SQRT(ce!NXOIF)**2-THB/3,lAl5S) 
GC TO 197 

195 WCHl, NXDIF)»CA(NXCIF)nHA 
WIL<2* NXD1F)»CB (NXCIF )-THB 
197 ARR( l t NXDIF)-THA*CCS(ALFA(l,NXOlF)) 
ARR(2,NXDIF)*THB*C0S(ALFA! 2, NXCIF) ) 

WO(l ,NXDIF )*WCL(1 ,NXDIF ) 
WI(2,NXCIF)»W1L(2*NXDIF) 

GC TC ( 1970* 1971 ) ,NRECT 


ANALYSIS IN 

HAS FAILEC TO C0NVERGE./21H SCLUTICN TETHA1035C 

ARE.. TBA|0350 
TBA 10360 
TBA 10370 
TPA103BC 
TBA1039C 
TBA1C5C0 
TBA1051C 
TBA 10520 
TBA10530 
TBA1055C- 
TBA1055C 
TBA10560 5 
TBA1057C 
TBA l 0580 i 
TBA1059C 
TBA10500 
T B A 1 05 1 0 1 
TBA10520 
TEA10530 
TBA10550 
TBA10550 


1970 ARF( 1,NX0IF)»3.15159*(H0H i» NXOI F ) •♦2“N IL ( l* NXO I F )**2 )*CGS ( ALFA ( l » TBA1 0560* 
1NXDI F) ) TBA10570. 

ARF(2.NX0IFj*3.i5l59*(WCU2»NX0IF)#P2-«IL(2,NXOIF)PP2)PCoSIAlFAI2.TeAlO58O: 
1NX0IF)) T0AIO59C- 


n no 


GC TG 200 

1971 ARF(1,NXC1F)* (wOl I1,NX0IF)-WIL( 1, NXD IF ) )*C0S I ALFA! 1* NXOl F) ) 
ARF(2 t NXOlF)* ( WCLI 2*NXC1 F) -WIL(2»NXDIF) )*C0S (ALFA(2*NXDIF ) ) 

START CF CC LCOP FOR TWO ANNULI 

200 OC 500 K»1 »2 
IHLO-NXOIF 
NXX*NX ( K ) 

NXD-NXCCIK) 

OC 2CC0 I»NXDIF*NXX 

X> IM)»XX( IMIX| I + D-Xlin/CCSULFAIK, l)) 

DELTA (1*1) *CELT I K* l ) 

CFLTA(2* I ) »CELT I K* 2 ) 

2000 CCNTjNUE 

SHAPEH(l,NXOIF)«SKAPH(K,l) 

$HAPEH(2,NXC!F)*SHAPHlK,2J 

Wl LX«WIL(K*NXCI F) *COS (ALFA (K«NXD IF J) 

WOLX»t'CL(K,NXOlF)*CQS(ALFA(K v NXOIF)) 

LN»l 

CC 210 J*l» NTU8E 
ROIJ)*RAD(J)*CC$lALFA(K,NXCIF)) 

210 RO(J)«(RD(J) -W l LX ) / ( WCLX-W I LX > 

CALL TUBE INI I0L»NRECT * ARFI K, NXOf F ) f WILXt WGLXfNTUBE 
l ,AF<K) tPRESI NXDIF) ,STAGT*UJ»RC*NTUBE *U JK» ASTAR * S TAGPtRHO* XMTB* 
2PRES (NXDIF ) *0 ) 

1FIIBL) 215*215,220 
215 WRITE ( JTAPE* 10) 

WRITE(JTAPE,1) 

RETURN 

220 OC 225 I«NXCIF*NXX 
ARK ( I )■ ARF (K * !) 

ALAI I ) *AL( K* 1 * I) 

2?5 ALBI I )« AL(K*2f I ) 

VFL ( 1 *NXCI F )sUJK( 1 ) 

VFL (2,NX0IF)«UJK(NTUBE) 

RC (1 *NXOI F) « RHOU) 
rC(2,NXCIF)*RH0INTU8E) 

I F (K.EG.2 ) CO TO 2250 
RCJI l)«ROJJ(i) 

RCJ 1 2 ) *RHO (NTUBE ) 

V E L J 1 1 )*VELJJ 1 1) 

VELJI2 )*UJ (NTUBE ) 

GC TC 2251 

2250 RCJIlURHC(l) 

RCJ I 2 ) »ROJ J( 2 ) 
veljiu-ujuj 

VF LJ 1 2 ) *VEL J J (2 ) 

2251 DC 2252 J«l,2 
SUHXJ (J)*SuPXJJ(K,J) 

$HP(J)«$HPP(K,J> 

2252 THET(J)«THETT (K,J) 

sup«o. 

SUPA«0« 

DO 22 ft J*l, NTUBE 
SUP*SUF+XMTB l Jl/RHCI J ) 

226 SUMA*$UMA+XPTB( J I9UJKI J J/RHOI J ) 

RHR«AFCK)/SUM 

BTA«SUKA*ARR(K» NXDIF )/SUN**2 
OYHD* (SUMA/SUPI ••2*RHR/32* 22. 


T BA 10600 

TBA10610 

TBA10620 

TBA 1.0650 

TBA 1C64C 

TPA10650 

TBA 10660 

TBA1 0670 

TEA 10680 

TBA10690 

TBA10700 

TBA10710 

T8A10720 

TEA 10730 

TBA107A0 

T8A10750 

T6A 10760 

TBA 10770 

TBA10780 

TBA1079C 

TeAioeoo 

TBA 10810 

TBA 10820 

TBA10830 

T8A108AC 

T8A108 50 

TBA10860 

TBA10870 

TBA1CB80 

TEA t0890 

TBA 10900 

TBA1091C 

TBA 10920 

TEA10930 

TBA109AO 

TEA10950 

TBA1096C 

TBA 10970 

TEA10960 

TBA1099C 

TBAUCCO 

TEA11010 

TEAI1020 

TBAI1030 

TBA110A0 

TBAUC50 

TBA 11060 

TBA11070 

TBAU08C 

T8A11C90 

TeAlllOO 

TRA11110 

TBA 11 120 

TeAlH30 

TEAlliAO 

T8A11150 

TBA11160 

TBAlllTOi 

TBAU180! 

TBA1U90I 



o n o r* r» n 


54 

* * * •••*•••••••• 

START of iteration loop 

22? CALL TU8ANU1BL.LN.ALA,ALB, IHLO, NXX, PRES , AST AR.RHC, 

ISTACP *U«1K| VELfRCt ARKyATUBEf STAGTf ALPMtNTUBC ) 

IF(IBL) 228,228,230 
228 WR ITE I JTAPE,10 ) 

WRITE I JTaPE, 2 ) 

RETURN 

230 CO 230C I*NXOIF,NXX 
ALAI I )*ALt K, 1» 1 1 
ALB! I )*AL I K, 2, I ) 

APKI I ) = ALF A(K, I ) 

YAL (IJ* NIIK, ()*COS(ALFA(K,m 
300 YRLI I ) = WCIK , I ) *COS I ALFAJK , I ) 1 

CALL NEWRAOI lBl,XX,VEL,RO, CELTA,SFAPEh,NXOlF,NXX,IHLO,YBl#YAL, 
lALAf ALB* HSEP,hRECT »ARK) 

IFIIBL) 250,250,320 
2 SO IF I LN-A 0)255, 2 70,270 
255 LN®LN*1 

25? DC 260 I=NXDF1,WXX 

WILIK, I)=WI(K, I) + DELTAI1,I )*CCS! ALIK, 1,1 ) l/COSI ALFAIK, I)) 

260 WQL(K,I) S WCIK, I ) -DELT Af 2, l )*C0S1 ALIK, 2, 1 1 1 /COS 1 ALFA IK, I H 
GG TG 1261, 263), NRECT 

261 DC 262 I s NXO IF,NXX 

ARKII)=3.14159*IW0LIK, I )**2-WIL IK , I)**2 )*CQS (ALFA f K, ! )) 

262 BLOCK! I ) = l.-APK( 1 1/ AKR I K, I ) 

GC TC 265 

263 DC 264 I*NXD IF*NXX 
ARK!I)s(WCLIK,I)>NIL(K, IH*CGSI ALFAIK, I) ) 

264 BLCCK(I) 3 1*-APK!I 1/ ARR 1 K, I ) 

265 OC 266 I=NXCIF,NXX 
YAL 1 1 )*WIL IK, I ) 

266 YBLI I )=WGL(K, 1 ) 

CALL SLOPE (XX, YAL, NXDIF>1,NXX, ALA, NXX) 

CALL SLCPF tXX ,YBL ,NXOIF + 1,NXX« ALB, NXX ) 

DC 267 I«NXDFl,NXX 

CC=1 
DE*l 

IFIALAID.LE.O.) DC*- 1 
IF I ALP 1 1 ) • LE.O* ) CE*-1 
ALa 1 1 )*dO*AT AM CD*ALA! I))-ALFA(K , I ) 

267 ALB(I)*DE«ATAN!CE*ALB! I))-ALFA(K, I) 

GC TO 227 

270 WRITE! JTAPE , 10 ) 

WRITE! JTAPE,7 ) 

GC TC 450 

CALCULATE OUTLET PROPERTIES 

320 RHP=0* 

XKV2*0 • 

XAV=0. 

OC 321 J*l,KTUeE 

XPV2*XPV2+UJK I J ) **2*ATU8E( J )*COS!ALPHA( J ) ) 

321 XAV*XAV+UJK{ J)*ATUB£I J )*CCS(ALPHA( J) ) 

XPV2*XMV2/ARRIK,NXX) 

XAV*XAV/ARRI K, NXX ) 

BT «X*V2/XAV**2 
RHP*AF(K )/XAV/ARR IK, NXX ) 


* 

T8A11200 

T6A11210 

TEA11220 

TBA11230 

T8AU2AC 

TBA11250 

TBA11260 

TBAU270 

TBAU2BC 

TBA1129C 

TBA11300 

TBA1131C; 

TBA11320 

TBA1133C 

TBA11340 

TBA11350 

TBA11360 

TBA1I370 

TBA11380 

TBA1139C 

TBA114C0 

TeAU41C: 

T8A11420 

TDA11430 

TBAU44C 

TeAH4rO 

TEA11460 

TBA11470 

TBAU48C 

TBA1 1490 

TeAllSOO 

TBA11510 

T0 A1152C 

TEA11530 

TBA 11540 

TBAI155C 

TBAH560 

TEAU570 

TBAl 1580 

TBA1 1590 

TBAl 1600 

TBA1161C 

T BA 11620 

TBA11630 

TBA1164C 

TBAl 165C 

TBAl 1660 

TBA11670 

T8A1168C ! 

TBAl 1690 

TBA11700 

TBAllTiq 

TBAll 72C? 

T8A11730 

TEA1174CM 

TBA1175d ! 

TbAII 760 

TBA1177C i 

TEA1178C 

T6A11790 


r»or. nr>r> non o ooo 


••••*•••••••••*• •* • *••«••••••' 

ARAT* ARR( K»NXO )/ ARR (K» NXX ) 

FRES(NXO) * PPES(NXX)4 ( 1 . + 1 ./ARAT ) * ( BT- 1 . /ARA ] 
164.4 


TBAU8C0 
)*RHM*XAV**2/TBA 1 1810 
TBA11820 


CALCULATE TEMPERATURE 


INLET 


ANNULI 


TOTAL PRESSURE LOSS 


B*l. 

C*-$TAGT 

A*(AF(K)*ZZR/ARR(K,NX0)/PRES(NXQ))**2/C2.*ZZCP*32.) 
TANA« (-B4SCRT ( B*B-4.*A*C ) 1/2 ./A 

PART- PRES (NXO)*(STACT/T ANA )*«(ZZGANA/( ZZGAMA-K 1 ) 
PNRT*PNRT-PLQSS f K ) 
ASS*AF(K)4SCRT(STAGT)/(0.532*PNRT) 
ASS*ARR(K,NXO)/ASS 

CALL GASTBLi ASS* RAT ,R Ap, XMACH, It IB L, ZZR , ZZGAMA ) 

PRES(nXD)»RAP*PNRT 

TANA*STAGT*RAT 

DELTP* (STPREF-PNRT) /STPREF 

GO TO (323, 324), K 

323 PAMA*PRE$(NXC) 

TANIA* TANA 
PNRTA-PNRT 

GO TO 400 

324 PAN18*PRES(KXQ) 

TAN1B*TANA 

PhRTB*PNRT 

400 IF ( IPRI NT) 500,500,410 

CALCULATE DIFFUSER PERFORMANCE 

410 CP ACT* (PRES ( NXX )-PRES( NXDI F) )/DYHD 
AR*ARR(K,NXX)/ ARR(K,NXDIF) 

IF (AR-1. ) 4100,4101,4100 
4101 CPIDL*0. 

EFECTN*!. 

GO TC 420 

4100 CPIDL*1.-1./AR/AR 

EFECTN*CPACT/CP10l 

CALCULATE DIFFUSER PERFORMANCE ALLOWING FOR MIXING 

420 CPCT* (PRES (NXC)-PRES(NXDIF ) J/CYHD 
AR*ARR(K,KXC)/ARR(K,NXCIF) 

BT*BT A 

4200 CPID«(2.*(BT-1.)41.-1./AR*42)/BT**2 
EFECT*CPCT/CPID 
430 CONTINUE 


PRINT 


RESULTS 


CALL GOUTPK NSNOUT ,CP!DL,CPACT,EFECTN,CPIO,CpCT,EFECT »1,K, 
1 ARR ( K, NXDI F)/ARR(K,KX0IF+1),CELTP) 

450 DC 460 I“NYD IF, NXX 
WID*1. 

IF(NRECT.EC.2) WI OWICTH1 
460 ARRKlI )»ARR(K,I)*WIO 
490 CALL NEwR1(PRES,ARRK*BLCCX) 

IF(IBL) 500,900,500 
500 CONTINUE ; 


J 56 * : a . _ * * 

900 RETURN 
END 





TBA12400 

T0A12MO 

TEA1242C 




YOUR CARO TCTAL IS 


>57 


TBFW0007 
TBFKOCOB 
TBFW0009 
TBFWOCIO 
TEFWQC1 1 
TBFWCC12 
TBFV:0C13 
TBFKQC14 


SUBROUTINE TUBFW1 TBFKCCOl 

TBFK0C02 

THIS SUBROUTINE CALCULATES THEORETICAL FLOW SPLITS TBFW0CO3 

USING CATA FROM SUBROUTINE TUfiCTS. TBFWOC04 

TBFW0C05 

CGMMON/B2/ RAD(16)yOELTA(2y50),EEl» 2 ) * U J ( 15 ) , THAyTHB, THS,PRES!50) .TBFK0C06 
l NGGyNWAY, ZZRyZZGAMA, BETA1, BETA2,XMVA,XMVByXMVSy ZZCPyIDIF TBFW0007 

2.HS6P ,FLAREA(50)yAREA(50) TBFKOCOB 

CCMMON/B12/ X(120),CA(120)yCB(120)ySA!50)ySB(50)y TBFK0009 

1 NRECT ,KXDI FyNDIFF, NSNGUT , NXCIFl,NXDIF2,NXDIFA,NXDIFByNTUBE y TBFWOCIO 

2PRFSIN, BLOCK (50), ABLOCK,SHAPEH(2y5Q)y TBFKOCll 

3 VP DAT A (15 ) ,ROAT A ( 15 ) »NUPRy ARDTA( 2C0 ) y XLNOTA ( 20 ) y EFOTA ( 200) yNCDFy TBFWCC12 
4NYDF yNZDFyElOTA, NXOFy AREFy WIDTH 1, TBFV:0C13 

5XM.ACH yPHOREF, EFDT ( 3 ) TEFKQC14 

COMMON/8126/ AF2, TANIA ,T AN IB, PAN I A, PAN IB, AFAyAFByPREDM,STAGTTBFW0C15 

l y I BL y STPREFy PNRT A, PNRTB, DPHSNT y DOMLOS TBFW0C16 

CCMM0N/B12678/ JT APE yIPRINT TBFkGCl 7 

C0MM0N/82TUB/ XMTB ( 15 ) » ATUBE( 15 )• ALPHA! 15), CAL 1 15) ,CBL ( 15) TBFK0C18 

TBFW0CI9 

4 FORMAT (96H SOLUTION FAILED TO CALCULATE THEORETICAL FLOW AREAS FORTeFW0020 
1A GIVEN FLCW SPLIT. SOLUTION TERMINATED.) TBFK0C21 

10 FORMAT (18H1*** ERROR MESSAGE) TBFWC022 

TBFW0C23 

THA=0 • TBFK0024 

THB=0 • TBFW0C25 

BETA1*0. TBFK0C26 

BETA2*C. TBFK0C27 

XMVA*0. TBFW0028 

XMVB»0. TBFK0C29 

XMVS«0. TBFK0030 

SUM=0 • TBFW0C31 

TBFK0032 

INNER ANNULUS TBFK0C33 

TBFW9C34 

DO 600 J*1 yNTUBE TBFW0035 

THA*THA+ATUBE ( J) *COS ( ALPHA! J ) ) TBFWCC36 

BETA1*BETA1+ATUBE(J)*UJ(J)*UJ(J)*C0$< ALPHA* J)) TBFW0037 

XMVA«XMVA+UJ ( J ) *ATUBE! J )*COS! ALPHA! J ) ) TBFW0C38 

SUM=SUM+XMT8(J) TBFK0039 

JK*J TBFK0C40 

IF (SUM.-AFA ) 600,610,604 TBFK0C41 

600 CONTINUE TBFK0C42 

WRITE ( JTAPEylO ) TBFW0C43 

WRITE (JTAPE,4) TBFW0C44 

STOP TEFW0045 

604 J*JK TBFW0C46 

THA«THA-( (SUM-AFA)/XMTB(J) )«ATUBE( J )*COS(ALPHA( J) ) TBFK0047 

BETAl»PETAl-( ( SUM-AFA )/XMTB( J) )*ATUBE! J )*UJ (4 )*UJ!J)«COS! ALPHA ( J))TBFW0G48 
XMVA-XMVA-U SUM-AFA) /XMT B ( J ) MATURE ( J )«UJ( J )*C0$ (ALPHA (J ) ) TBFW0049 

TBFW0C5C 

OUTER ANNULUS TBFK0C51 


SUM=0. 

DC 620 J=1 ,NTUPc 
JJ=NTUBE+1-J 

THB»THE+ATUBE( JJ)*CCS( ALPHA ( J J ) ) 

BETA2*EET A2+ATUBE ( JJ ) «UJ ( JJ )*UJ( JJ ) *COS( ALPHA! JJ ) ) 
XMVB- XMVB4UJ ( J 4 ) *ATUBE ( JJ ) «COS ( ALPHA! JJ ) ) 
SUM*SUN+XMTB(JJ) 




'158 




IF (SUP-AFB) 620»630t625 

TBFW0060 


620 

CONTINUE 

TBFW0061 



WRITEUTAPE, 10) 

TBFW0062 



WRITE ( JTAPE»4) 

TBFW0063 



STOP 

TBFW0064 

c 



TBFW0065 


625 

THB=THE-(SUM-AFB)/XHT8(JJ)*ATUBEUJ)*C0S« ALPHA (JJ)) 

TBFW0066 



BETA2“BETA2-(SUM-AFB)/XMTB( JJ)*ATUBE( JJ)*UJ ( JJ )*UJ ( JJ ) *COS (ALPHA ( JTBF WOO 67 


1J)) 

TBFW0068 



XMVB»XPVB- ( SUH-AFB)/XMTB( JJ)*ATUBE( JJ)*CO$(ALPHA( JJ) )«UJ( JJ) 

TBFW0069 

c 



TBFW0C70 

c 


FLOW INTO THE SNOUT 

TBFW0071 

c 



TBFW0C72 


630 

THS=FLAREA(NXDIF)-THB-THA 

TBFW0073 



IF (THS)635*635»640 

TBFW0074 


635 

THS*0. 000001 

TBFW0075 


640 

CONTINUE 

TBFW0076 

c 



TBFW0077 

c 


ALLOW FOR BOUNDARY LAYER BLOCKAGE 

TBFW0C78 

c 



TBFW0079 



GO TO (650 »660 ) t NRECT 

TBFW0C80 


650 

THA=THA+(CAL(NXDIF)*«2.-CA(NXDIF)**2.)»3. 14159 

TBFW0081 



THB=ThB+(CB(NXDIF)**2.-CBL(NX0IF)«*2.)«3#l4159 

T0FWOO82 



GO TO 680 

TBPW0083 


660 

THA=THA+ CAL (NXDIF)-CA(NXDIF) 

TBFW0084 



THB*THE+ CB(NXDIF)-CBL(NXOIF) 

T6FW0C85 


680 

CONTINUE 

TBFW0086 



XMVA=XFVA/THA 

TBFW0087 



XMVB=XFVB/THB 

TBFW0088 



BETA1=BETA1/THA/XHVA**2 

T6FW0089 



BETA2=BETA2/THB/XMVB**2 

TBFW0C90 



DO 685 J=1 vNTUBE 

TBFW0C91 


685 

XFVS*XPVS+UJ (J)*ATUBE(J)*COS( ALPHA! J ) ) 

TBFW0092 



XMVS* ( XMVS-XMV A*THA-XMV8*THB )/THS 

TBFW0093 


900 

RETURN 

TBFW0094 



END 

TBFW0095 



on noon non no o orsoo 


159 


SIBFTC TBIN 


SUBROUTINE TUBEINl I Bl , NR ECT» AREA* YA»YB iNTUBE » XMOOTtPRE S# STAGT* 
1 VPDAT A * RDATA* NUPR*UJ« ASTARfSTAGP* RHO*XMTB* STP*N) 


THIS SUBROUTINE CALCULATES THE 
FOR THE STREAMTUBE CALCULATION 


INPUT STREAHTUBE PROPERTIES 


C0MM0N/B12678/ JTAPE.IPRINT 

DI PENSION VPR( 15 ) ,VPCATA{ 15 ) ,RDATA( 15>t UJC 15) .ASTARf 15) * 
1)*ATUBE(15)*RAD(16) * RH0( 15 ) « TJ ( 15 )* XMTB( IS ) *ATB(1S) 

1 FORMAT (99H1S0LUT ION FAILEO TO FINO A CONVERGED VALUE OF U. 
1TERMINATED. THE LAST TWO VALVES OF U MERE..) 

2 FORMAT ( IX »6 ( E12 .5 ) ) 

10 FORMAT (1X//////18H •** ERROR MESSAGE) 


11 FORMAT (66H SOLUTION 
1S0R OUTLET) 


FAILEO TO CALCULATE STATIC PRESSURE AT 


103 


CALL GASTBL(01,D2,D3,D4,-1,06,ZZR,ZZGAMA) 

ZZCP«ZZR*ZZGAMA/ (ZZGAMA-1. ) 

IBL=1 

CALCULATE AREA OF EACH STREANTUBE AND NONDIMENSIONAL VELOCITY 

SUMA=0. 

RAD( 1 )=YA 

GO TO (103 « 106 ) y NRECT 
AR=3. 14159*<YB**2-YA**2) 

00 104 J=1 » NTUEE 
ATB( J) =AR/ FLOAT! NTU8E) 

ATUBE (J)*AREA/FLOAT(NTUBE) 

SUKA^SUMA+ATB! J) 


TBIN0001 
TBIN0002 
TBIN0003 
TBIN0004 
TBIN0C05 
TBIN0C06 
TBIN0C07 
STAGP! 15TBIN0C08 
T3IN0009 
TBIN0010 
PR0BLEMT8 I N001 1 
TBIN0C12 
TBIN0013 
TBIN0014 
C0MPRESTBIN0C15 
TBIN0C16 
TBIN0C17 
TBIN0018 
TBIN0019 
TBIN0020 
TBIN0021 
TBIN0022 
T8IN0023 
TBIN0C24 
TBIN0025 
TBIN0026 
TBIN0027 
T8IN0028 
TBIN0029 
TBIN0030 
TBIN0031 
TBIN0032 


104 RAD( J+l )=SQRT ( SUMA/3. 14159+YA**2 ) 

GO TO 110 
106 AR=YB-YA 

DO 108 J=1 »NTUBE 
ATB! J)=AR/ FLOAT! NTUBE) 

ATUBE (J)*AREA/FLOAT(NTUBE) 

108 RAD(J+1)*RAD(J)+ATB(J) 

110 00 115 J=1 »NTU8E 

115 RAD(J)»((RAD(J) + RA0!J-H))/2.-YA)/!YB-YA) 

00 120 J*1 »NTUB6 

120 CALL 1 1 API (RAD( J) y VPR( J)t RDATA«VPCATA»NUPR) 

RHCR»STP/ZZR/STAGT 

SUM=0. 

00 121 J»1 fNTUBE 

121 SUM=SUM+VPR( J) «RHOR« ATUBE! J ) 

U=XMOOT/SUM 

LC=0 

IS STAGNATION PRESSURE GIVEN (N«l) OR STATIC PRESSURE (N«0) 

IF TOTAL PRESSURE GIVEN (N»l) GUESS STATIC PRESSURE 

IF(N.EO.O) GO TO 1210 
PRES»STP-U«U*RH0R/32./2. 

LD*0 

1210 SUM*0. 

CALCULATE VELOCITY TEMPERATURE ANO OENSITY FOR EACH STREANTUBE 


TBIN0033 

TBIN0034 

TBIN0035 

T8IN0036 

TBIK0037 

TBIN0038 

TBIN0039 

TBIN0040 

TBIN0041 

TBIN0042 

TBIN0C43 

TBIN0044 

TBIN0045 

TBIN0046 

TBIN0047 

TBIN0048 

TBIN0049 

TBIN0050 

T8IN0051 

TBIN0052 

TBIN0053 

T8IN0054 

T6IN0055 

TBIN0056 

TBIN0057 

TBIN0056 

TBIN0059 



oooooo ooo o o o n u n 


160 


00 122 J*1 »NTUBE 
UJ ( JJ * VPR ( J) *U 

TJ (J) =STAGT-UJ ( J )**2/ ( 2.*ZZCP*32. ) 
RHO(J)=PRES/ZZR/TJ(J) 

122 SUM=SUN+VPR( J) *RH0( J)*ATUBE( J) 

UU*XM0CT/SUM 

IS GUESS AT VELOCITY GOOD ENOUGH 

IF (ABS ( (UU-'J)/U)-0 .00001 ) 130,130,123 

123 U=UU 
LC*LC+1 

IF(LC-40) 1210, 1210, 124 

124 WRITE ( JTAPE, 1 ) 

WRITE! JTAPE, 2) UU,U 

1 BL=0 
RETURN 

CALCULATE TOTAL PROPERTIES FOR EACH STREAMTUBE 

130 SUM=0. 

DO 135 J=1 ,NTUBE 

5TAGP(J)=PRES» (STAGT/TJ( J ) )**( ZZGAHA/C ZZGAHA— 1 • ) ) 
CALL GAST8L( A AS, D2 » PRES/ST AGP( J ) » D4»0, IBL, 07,08) 
IF(IBL)900 ,900,133 
133 XFTB{J)=RHO(J) *ATUBE ( J)*UJ ( J ) 

135 A STAR ( J) = ATUBE ( J )/ AAS 
IF(N.EC.O) GO TO 900 
STPP*0. 

CALCULATE WEIGHT MEAN TOTAL PRESSURE 
DO 140 J=1 »NTUEE 

140 STPP=STPP+ST AGP! J) *XMTB( J J/XMCQT 

IS TOTAL PRESSURE NEAR ENOUGH TO INPUT VALUE 

IF (ABS (STPP/STP-1. 1-0.0001) 200,200,150 

GUESS NEW VALUE OF STATIC PRESSURE 

150 PRES=PRES/$TPP*STP 
LD=LD+1 

IF(LD-40)1210, 1210, 160 
160 WKITE(JTAPE,10) 

WRITE (JTAPE, 11 ) 

1 BL=0 
RETURN 

200 STP*STPP 
900 RETURN 
END 


TBIN0060 

TBIN0061 

TBIN0062 

TBIN0063 

TBIN0064 

TBIN0065 

TBIN0066 

TBIN0067 

TBIN0068 

TBIN0069 

TBIN0070 

TBIN0071 

TBIN0072 

TBIN0073 

TBIN0074 

TBIN0C75 

TBIN0076 

TBIN0077 

TBIN0078 

TBIN0079 

TBIN0080 

TBIN0081 

TBIN0082 

TBIN0083 

TBIN0084 

TBIN0085 

TBIN0086 

TBIN0C87 

TBIN0088 

T8IN0C89 

T8IN0090 

T8IN0091 

TBIN009? 

T8IN0093 

TBIN0094 

TBIN0095 

TBIN0096 

TBIN0C97 

TEIN0098 

TBIN0099 

TBIN0100 

TBIN0101 

TBIN0102 

TBIN0103 

TBIN0104 

TBIN0105 

TBIN0106 

TBIN0107 

TBIN0108 

TBIN0109 

TBIN0110 

TBIN0111 


o ci o o o o n o o 
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SlBFTC TBAN 

SUBROUTINE TUBANLC IBL,LN, ALPHA1, ALPHA2, N,NX,PRES,ASTAR t RHO* 
1STAGP ,UJ, VEL,RO» AREA, ATUBEySTAGT t ALPHA* NTUBE) 

COMMON/ 81 2678/ JTAPE* IPRINT 


THIS SUBROUTINE PERFORMS A STREAM TUBE ANALYSIS FROM GIVEN 
STARTING CONDITIONS 

01 PENSION ALPHA1(50),ALPHA2(50),PRES<50I,ASTAR(15), 
lRH0(15)ySTAGP(15)yVEL(2*50)yR0(2*50),AREA( 50) yATUBEC 15) , UJC15) y 
2 T J( 1 5 ) , ALPHA (15),Cl(15)yC2(15 ) yXMTBC IS) 


TBAN0001 
TBAN0C02 
TBANOOOB 
TBAN0004 
TBAN0C05 
TBAN0C06 
TBAN0C07 
TBAN0008 
TBAN0C09 
TBAN0010 
TBAN0Q1 1 

2 F0RMAT(lX,9(E12.5ylX)) TBAN0012 

3 FORMAT (34H1 ITERATION ON ALPHA AT STATION NO.«I3 V 10H CYCLE NO. *13 *5TBAN0013 

15H HAS NOT CONVERGED. THE LATEST VALUES OF ALPHA ARE.....) TBAN0014 

5 FORMAT (33H ITERATION ON AREA AT STATION NO.yI3ylOH CYCLE NO. * 13* 67TBAN001 5 

1H HAS NOT CONVERGED. THE LATEST VALUES OF GUESSED AREA AND FLOW ART8AN0016 
2EA) TBAN0017 

6 FORMAT C 1 1 H ARE ..,21 E12.5.2X ) ) T 8AN0018 

10 FORMAT I1X////// 18H *•* ERROR MESSAGE) TBAN0019 

TBAN0020 

CALL GASTBLIOl, 02, 03, 04,-1, D6, ZZRyZZGAMA ) TBAN0021 

7ZCP*ZZR*ZZGAMA/(ZZGAMA-1.) TBAN0022 

IBL=1 TBAN0023 


DO 125 J«i, NTUBE 
Z=PRES(N)/STAGPI J) 

CALL GASTBL(AAS,02,Z,04*0*IBLy07 v D8) 
IF(IBL) 900,900,121 
121 ATUBE1 J)*AAS*ASTARtJ) 

TJ (J) =STAGT*D2 
RHOC J)-PRE$CN)/ZZR/TJ( J) 
UJ(J)=SQRT(32.*ZZCP«(STAGT-TJtJ>)*2.) 
XMTBl J ) = ATUBE ( J) *U J ( J )*RHO( J ) 

125 ALPHA (J) 

IE) 


TBAN0024 

TBAN0025 

TBAN0C26 

TBAN0027 

TBAN0028 

TBAN0029 

TBAN0030 

TBAN0031 

TBAN0032 


GUESS 


ALPHA 1C N+l )*(ALPHA2(N'*1 )-ALPHAl(N4l) ) «FLOAT (J) /FLOAT (NTUBTBAN0033 

TBAN0034 

TBAN0035 

PRESSURE AT NEXT STATION DOWN STREAM TBAK0036 


N1-N+ 1 

DO 300 I=N1,NX 
150 PRR=PRES ( I-l 1 
LR=0 

2000 DP=10.«*10. 

00 201 J*l, NTUBE 

Cl(J)»RH0(JI*CUJ{J)*ATUBE(J))**2/2./32. 
C2(J)»C1C JJ/ATUBEC J)«*2 

201 IFCDP.GE.C2CJ) 1DP-C2CJ) 

R=0. 

DO 202 J*l, NTUBE 

202 R=R+SQRT ( Cl ( J) /C2C J) ) •COSC ALPHA ( J ) ) 
R=R-AREA( I ) 

IF (R) 2020,2021,2022 

2021 PRES ( I )*PRR 
GOTO 300 

2022 DP*-10.»DP 
2020 SUM= ABS (DP/4. ) 

DP-DP/2. 

00 206 KK*1 »30 
R=0. 

DO 203 4- I* NTUBE 


TBAN0037 

TBAN0038 

TBAN0039 

TBAN0040 

TBAN0041 

TBAN0042 

TBAN0043 

TBAN0044 

TB AN0045 

TBAN0046 

TBAN0047 

TBAN0048 

TBAN0049 , 

TBAN0050 i 

TBAN0051 

TBAN0052 

TBAN0053 

TBAN0054 

T8AN0055 

TBAN0056 

TBAN0057 

T8AN0058 

TBAN0059J 




203 

62 

R=R+SQRT!C1!J)/! C2< J>-0P>>*C0S! ALPHA! J>> 

TBAN0060 



R=R-AREA(I) 

TBAN0061 



IF (ABS(R/AREAU) >*0.00001 >207, 207, 2040 

T8AN0062 

2040 

IF (R) 204,207,205 

T8AN0C63 


204 

DP=DP+SUM 

TBAN0064 



GO TO 206 

TBAN0C65 


205 

DP=DP-SUM 

TBAK0C66 


206 

$UM=SUM/2. 

TBAN0067 


207 

PRES ( I )*PRR+OP 

TBAN0068 



DO 212 J»1,NTUBE 

TBAN0C69 

1 


Z=PRESU)/STAGP! J> 

TBAN0070 



CALL GASTBLt AAS,TT0,Z,D4,0, IBL,07,D8) 

TBAN0C71 



IF (I BL) 900, 900,2 11 

T8AN0072 


211 

ATUBE l J)*AAS*ASTAR! J) 

TBAN0073 



TJ!J)»TTO*$TAGT 

TBAN0074 



RHO!J)*PRES!I>/ZZR/TJ!J> 

TBAN0C75 


212 

UJ(J>=SQRT!2.*ZZCP«32.*(STAGT-TJU>>> 

TBAN0076 

C 



TBAN0C77 

c 


CALCULATE STREAM-TU8E SLOPE 

TBAN0078 

c 


LC=0 

T8AK0C79 

TBAN0C80 



SUMA»0. 

TBAN0081 



DO 215 J*1,NTU8E 

T8AN0082 


215 

SUMA*SUMA+ATUBE! J > *COS ( ALPHA { J ) ) 

TBAN0C83 

2150 

SUMB*0 • 

TBAN0084 



DO 2151 J*1,NTUBE 

TBAN0C85 



SUKB«S0MB4ATUBE( J)*COS( ALPHA! J)> 

TBAN0086 

2151 

ALPHA! J>*ALPHA1( I )+! ALPHA2! I )-ALPHAl! I ) )*! SUMB-ATUBE! J)*COS! ALPHA!TBAN0C87 


1J> >/2.>/SUMA 

TBAN0088 



SUMC=0. 

T8AN0C89 



DO 218 J=1 ,NTUBE 

TBAN0090 


218 

SUKC* SUMC +ATUBE ! J )*COS ( ALPHA! J > > 

TBAN0091 



IF (ABS ( (SUMA-SUMO/SUMA) -0.00000 5 >225,225,220 

TBAN0092 


220 

LC=LC+1 

TBAN0093 



SUMA=SUMC 

TBAN0094 



IF(LC-40)2150, 2150, 221 

TBAN0095 


221 

WRITE! JTAPE, 10 > 

TBAN0096 



WRITE ( JTAPE»3) I, LN 

TBAN0097 



WRITE l JTAPE, 2) ! ALPHA! J ) ,J«1,NTUBE) 

TBAN0098 



I BL=0 

TBAN0099 



RETURN 

TBAN0100 

C 



TBAN0101 

C 


COMPARE COMPUTED FLOW AREA AT THIS GUESSED PRESSURE 

TO ACTUAL FL0WTBAN0102 

C 


AREA AT THIS STATION NUMBER 

T8AN0103 

C 

225 

IF(ABS!(AREA!I J-SUMCI/AREA! I > >~Q.0001 ) 290,290,230 

TBAN0104 

TBAN0105 


230 

LR=LR+1 

TBAN0106 



IF (LR”40> 240,240 ,235 

TBAN0107 


235 

WRITE! JTAPE, 10> 

T8ANU108 



WRITE! JTAPE, 5> I, LN 

TBAN0109 



SUMB«APEA! I> 

TBAN0110 



WRITE! JTAPE, 6) SUMA,SUMB 

TBAN0111 



I BL*0 

TBAN0112 



RETURN 

T8AN0113 


240 

PRR=PPEStI> 

T8AN0114 



GO TO 2000 

TBAN0115 


290 

VEL!1 , I )*UJ! 1> 

T6AN0116 



VEL(2,I)»UJ!NTUBE) 

T8AN0117 



R0(1, I >*RHO( 1> 

TBAN0118 



RO(2,I)«RHO!NTUBE> 

TBAN0119 


300 

CONTINUE 

TBAN0120 



163 


900 RETURN 
END 


TSAN0121 

TBAN0122 



n n n o 
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$1 BFTC NEWR LIST 

SUBROUTINE NEWRAD ( I BL,X, VEL*RO, DELTB* SHAPEH,N*NX» IHLD»CB«CA • 
I ALFA, ALFB,HSEP,NRECT,ALFC) 


1 


THIS SUBROUTINE 
THICKNESS FOR A 


CALCULATES THE 
GIVEN VELOCITY 


BOUNDARY LAYER 
DISTRIBUTION 


DISPLACEMENT 


SHAPEH! 2*50) 


CCMM0N/B12678/ JTAPE.IPRINT 

COMMON/B2TBCS/SHP(2)»THET(2 ) * ROJ (2) * VELJ ( 2 ) » SUMXJ! 4) 

DIMENSION VELl 2? 50 ) » R0(2,50), 

1 Xt 1 ) t CA ( 1 ) ?CB( 1),ISEP(2),DELTB(2»50), 

2 DELTA! 2* 50 )* THETA ( 2*50)*E(4)*F(2)*G(2)*DT(2)* 

3 ALFA ( 1 ) * ALFB! 1 ) 

4 » ALFC Cl) 

OUA A,C/2H»*,2H 

1 FORMAT (IX/// 35X» 50HBOUNDARY LAYER PROPERTIES - SOLUTION HAS 

1ERGED) 

2 FORMAT (IX//) 

3 FORMA'.A.X/// 
iCONVERGED) 

4 FORMAT C76H 

1 OUTER HALL) 

5 FORMAT (116H STATION 

l DELTA THETA 

6 FORMAT l 1 1 5H NUMBER 

1 IN IN 

7 FORMAT! 


35X » 54HBOUNOARY LAYER PROPERTIES - SOLUTION HAS NOT 


XII) 

H 

IN 


PRESSURE 
AN. AREA 
PSIA 
SQ IN 


INNER WALL 

DELTA THETA H 
FRACTIONAL STATION) 
IN IN 

BLOCKAGE NU M “ER) 


13F7.3 


2X*I4»2X»F9.3»F9.3*3X*A2* 3F7.3*A2*3X*A2* 
A2»2X*F9.3»F11.4»5X*I4) 


8 

12 


FORMAT ( 51H SEPARATION 
FORMAT llX/ ) 


IF IT OCCURS IS INDICATED BY ••) 


I B L= 1 

THETA ( 1 * N) =DELTB (1»N)/SHAPEH( 1,N) 

THETA (2,N)»0ELTB!2»N)/SHAPEH(2,N) 

DELTA (l f N)=DELTB(l»N) 

DELTA (2» N)*DELTB(2tN) 

CALCULATE THETA AND SHAPE FACTOR H FOR BOTH WALLS 


NEWR0C01 
NEWR0C02 
NEWR0C03 
NEWR0004 
NEWR0005 
NEWR0006 
NEWR0007 
NEWR0008 
»NE WR0009 
NEHR0010 
NEWR0011 
NEWR0012 
NEWR0013 
NEWR0014 
NEWR0015 
CONVNEWROOI6 
NEWR0017 
NEWR0018 
NEWR0019 
NEWR0020 
NEWR0C21 
NEWR0022 
NEWR0023 
NEWR0C24 
NEWR0025 
NEWR0026 
NEWR0027 
NEWR0028 
NEHR0029 
NEWR0C30 
NEWR0031 
NEWR0032 
NEWR0033 
NEWR0034 
NEWR0C35 
NEWR0036 
NEWR0037 
NEWR0038 
NEWR0039 
NEWR0C40 
NEHR0041 
NEWR0042 
NEHR0043 
NEWR0044 
NEWR0045 


N1=N+1 

DO 140 J=l,2 

I SEP ( J ) *N +1 
SUMX® SUMX J ( J ) 

00 1 05C I=N1*NX 

I I =1 -1 

SUKX»SUMX+(VEL!Jf IN»4*RO(J,I)**(7./6.)*VEL(J*II)**4*ROIJ,II)«*!7.NEWR0046 
l/6.))/2.*(X(I)-X!II)) NEWR0047 

1050 THETA(J,I)«(THET! J ) •* ! 7 ./ 6. ) •( VEL J ( J )/VEL( J , I ) )** ! 25. /t . )* (ROJ ( J ) /NEHR0048 
1 RO ( J * I))«*(7./6. )■♦■ SUMX * .0076* • 23/ VEL(J* 1 )** (25./A. )/R0( J* I )*• NEWR0049 

2(7./6.))*«(6./7.) NEWR0050 

SUMX J ( J+2 ) *SUMX NEWR0051 

DO 140 I«N1,NX NEWR0052 

TA »(THETA(J,I)-THETACJ,I-l))/(X(I)-XII-l>> NEWR0053 

5HAPEH(J,I)»SHP(J)+70.«(SHP(J)-1.05)*TA NEWR0054 

IF(SHAPEH(J, D.LE.1.1) SHAPEH! J, I )«1.1 NEWR0055 

IFCSHAPEH! J,Ii .GE.3.5) SHAPEHC J, I )«3.5 NEWR0056 

106 IF(SHAPEH!J»I )-HSEP) 108*108*110 NEWR0057 

108 ISEPt J)»IS5P(J)41 NEWR005R 

IF(ISEP(J).LE.I) ISEP! J1*ISEP( J )*1 NEWR0059 



r»oor> oor»r> 


110 DELTAIJ.I) 
140 CONTINUE 


■THETA (J, I )*SHAPEHl J, 1 ) 


165 


CALCULATE NEW VALUES OF THE DISPLACEMENT THICKNESS FROM THE 
PREVIOUS VALUES AND THE PREDICTED VALUES AT THE PREVIOUS BLOCKAGE 

ISP-NX+l 

JH«1 

I F (I SEP ( 1 ) *6T • ISEPI2) ) JH-2 
IF(lSEPUH). EQ.NX+1 ) GO TO 145 
ISP* I SEP! JH) 

JK*l 

IF (JH* EQ* 1 ) JK*2 
145 0T(1)*0. 

DT(2)*0. 

E (3) ■ DELTB (1 »N ) 

E (4) *OELTB ( 2 v N ) 

DO 200C I*N1,NX 
IF(I.GT.ISP) GO TO 250 
DO 2001 J*l,2 

D-240.«(SHP(J)-1.05)/SHAPEH(J,n*THETA(J t n/(XU>-X(I-l))43,3 
IF (SH APEH ( J, I )-3.5 ) 1501,1503,1501 
1501 IF(SHAPEH<J,n-l.l) 1500,1503,1500 
1503 0-3.3 

OT ( J) *0. 

1500 CONTI NUE 

E(J)*DELTA(J,I )• ( l.+O/ICBl I )~CAl 1 1 )«(DELTB( 1, I )+DELTB(2«I ) 11 
l-70.*0T(J)«(SHPU)~1.0S)/$HAPEH(J*n/(Xm-X(I-lM 
2*DELTA<J,I) 

F(J) *OELTA( J,I)*D/(CBC!)-CA( I>) 

2001 G( J)*F (J) 

F(l)-F(l) + 1. 

G(2) *G (2) +1. 

G(l)-G(l)/F(l) 

EllUEIll/Fm 

E(2)*£(2)-E(l)«F(2) 

G(2)*G<2)-G<n«F(2) 

E(2)*fc (2)/G(2) 

E(1)*F(1)-E(2)«G(1) 

AB1-0ELTB ( 1, I ) 

AB2-DELTB (2,1) 

00 2004 J*l,2 

IF (E C Jl.LE.O.) E ( J )*0 • 

IF (El J).GT.0.5«(CB(I)-CACI))) El J 1*0.5«(C8(I)-CA( I )) 

IF (DELTdl J,I ).LE.0.02*(CB(I )-CAl I )) ) GO TO 2002 
IF (A8S (El J)*OELTB( J, I ) I/DELTBl J, D.LE.0.4) GO TO 2002 
OELTB (J, I )*DELTBl J, I )•( 1.+0.2*S1GNI l.,E( JI/DELTBl J, I )-!•)) 

GO TO 2004 

2002 DELTB ( J,I )«(E( J)+OELTB( J, I ) )/2. 

2004 CONTINUE 

DO 2006 J-1,2 

2006 DT(J)— 3.3«THETA(J,n*(E(l)4E(2)-ABl-AB2)/(CBl I)-CAUn 
E(3)*E (1) 

E(4)-Ei2) 

GO TO 220 

IF FLOW HAS SEPERATEO EXPANO AT CONSTANT PRESSURE I«E« CONSTANT 
PLOW AREA 

250 RTa(SHAPEH(JH, 1SP1-HSEP1/CSHAPEHI JH# !SP)*SHAP2M( JH«1SP<*1) ) 

IF (ISP.EQ.N1 ) RT-1. 


NEWR0060 

NEWR0061 

NEWR0062 

NEWR0063 

NEWR0064 

NEWR0065 

NEWR0066 

NEWR0067 

NEWR0068 

NEWR0069 

NEWR0070 

NEWR0071 

NEWR0072 

NEWR0073 

NEWR0074 

NEWR0075 

NEWR0076 

NEWR0077 

NEWR0078 

NEWR0079 

NEWR0080 

NEWR0081 

NEWR0082 

NEWR0083 

NEWR0084 

NEWR0085 

NEWR0C86 

NEWR0C87 

NEWR0088 

NEWR00B9 

NEWR0090 

NEWR0091 

NEWR009? 

NEWR0093 

NEWR0C94 

NEWR0095 

NEWR0C96 

NEWR0C97 

NEWR0C98 

NEWR0099 

NEWR0100 

NEWR0101 

NEWRG102 

NEWP0103 

NEWR0104 

NEWR0105 

NEWR0106 

NEWR0107 

NEWR0108 

NEWR0109 

NEWR0110 

NEWR01U 

NEWR0112 

NEWR0113 

NEWR0114 

NEWR0115 

NEWR0116 

NEWROUT 

N1WR011I 

NfVROlt* 

NEWR0120 



IJUO 


166 


1F(RT.GT.1.)RT=1. 

ALF=CAES(ALFA( ISP) )+ABS(ALF8(lSP)))/4. 

IF(NRECT.EQ.1)GQ TO 350 

FL1=CB (I$P)-CA(ISP)-DEITB( 1« ISP)«C0SC ALFAC ISP) )-DELTB(£»ISP)* 

I CCSl ALF8 ( ISP) ) 

FL2=CB ( ISP-1 )-CA( ISP-1 )-DELTB( 1» ISP-1 )*COS( ALFAC ISP-1) )-DELTB(2, 
1ISP-1J*C0S(ALFB{ ISP-1)) 

FL=FL1 * ( 1 *-RT) ♦FL2*RT 
FL=FL/C0S ( ALF) 

AL1=C0S ( ALFA ( I )) 

AL2=C0S(ALFB(I)) 

IFdSEF(l) «E0. IS EP C 2 ) ) GO TO 270 
IF ( JH. FQ. 2 ) AL 1= AL2 
IFCJH.tQ.2) AL2=C0S (ALFA(I)) 

EC JK)=CELTA(JK,I ) 

E(JH) = (CB(I)-CA( I )-FL-DELTA( JK* I )*AL2 )/ALl. 

SHAPEH (JH, I ) =3.5 
GO TO 2509 

270 E(l)=(CB(I)-CA(I)-FL)/ALl« 

E(2)=(C8(T)-CA(I)-FL)/AL2* 

DO 251 J=?.,2 
251 SHAPEH(J,I)=3.5 
GO TO 2509 
350 DO 351 K=l,2 
IS=I SP+l-K 


NEUR0121 
NEWR0122 
NEWR0123 
NEWR0124 
NEWR0125 
NEWR0126 
NEWR0127 
NEWR0128 
NEWR0129 
NEWR0130 
NSWR0131 
NEWR0132 
NEKR0133 
NEWR0134 
NEWR0135 
NEUR0136 
NEWR0137 
NEWR0138 
NEWR0139 
NEWR0140 
NEWR0141 
NEWR0142 
NEWR0143 
NEWR0144 
NEWR0145 

AA=3. 141593* ( ( CB ( IS )-CELTB( 2* IS ) *COS ( ALFB( IS)) 1**2-(CA(IS)+DELTB (1NEWR0146 


E( 3 )/( EC 3 )*E( 4) ) 
EC4 )/( EC 3 )*EI 4) ) 


351 


360 


1 . IS' *CCSC ALFAC IS ) ) )**2)/C0S( ALFCC IS)) 
IFCK.EC.l) FL1=AA 
IFCK.EC.2) FL2=AA 
FL=FL1«(1.-RT)+FL2*RT 
FL=FL/COS (ALF ) 

AL1=CG5 { ALFA ( I )) 

AL2=CCS(AtFB(IH 

IFCISEPCl ; .EQ. ISEPC2) ) GO TO 370 
FC JK)=CELTA( JK, I ) 

IFCJH.EQ.l) EC JH)= (SORT € ( CB 1 1 )-DELTB( 2,1 )*AL2 
i m>/3. 141593) -CAC I ) )/ALl 


NEWR0147 
NEWR0148 
MEWR0149 
i WR0150 
NEWR0151 
NEWR0152 
NEWR0153 
NEWR0154 
NEWR0155 

)**2-FL*C0SCALFCNEWR0156 

NEWR0157 


IF (JH.FQ.2) EC JH)*CCB( I )-SQRT( FL*COSC ALFCC I ) )/3.l41593*CCAlI HDELTNEWR0158 


1 B ( 1, 1 )*AL1 )**2 ) ) / AL 2 
SHAPEH (JH» I)=3. 5 
GO TO 2509 

370 E (1) = (CBC I )**2-CAC I )#«2-FL*C0SC ALFCC I ) )/3« 141593 )/2./(CB( I ) 
1CACI ) ) /AL1 

EC2)=EC1)/AL2*AL1 
SHAPEH ( 1 , I )=3. 5 
SHAPEH(2,I)*3.5 
2509 DC 2511 J=l»2 

2511 DELTBCJ,! ) = C0ELTBC J, I HEC J ) )/2. 


FIND IF SOLUTION HAS CONVERGED CIBL-1) OR NOT CIBL*0) 


IFCIBL) 2008,2000,2008 
IF CABS CDELTBC1 »I)/E(1)-1.)-0.01 
I F (A3S ( DELTB (2,1 )/EC2)-l.)-0.01 
CONTINUE 
I£L=1 

GO TO 2000 
1 81=0 
IHLD* 1-2 

IF (IHLO.LE.N) IHLD-N 
2000 CONTINUE 


220 

2008 

200 

205 


210 


) 200,200,210 

) 205,205,210 


NEWR0159 
NEWR0160 
NENR016 1 
NEWR0162 
NEWR0163 
NEWR0164 
NEWR0165 
NEWR0166 
NEHR0167 
NEWR0168 
NEWR0169 
NEWR0170 
NEHR0171 
NE WR0172 
NEWR0173 
NEWR0174 
NEHR0175 
NEWR0176 
NEVIR0177 
NEWR0178 
NEHR0179 
NEWR0180 
NEHR0181 



o no 


167 


RETURN 

WRITE CUT BOUNDARY LAYER PARAMETERS 

ENTRY NEWRIC PRES? AREA* BLOCK) 

DIMENSION PRES (50) » BLOCK (50), ARE A (50) 

WRITE (JTAPE, 12) 

IF(IBL) 490,490,491 

490 WRITE (JTAPE?3) 

GO TO 500 

491 WRITE ( JTAPE, 1) 

500 DO 510 I»N,NX 

PRESl I)=PRES(I)/144. 

X(I)«X(I)*12. 

DELTA U, I )»DELTB(1,I)«12. 

DELTA (2 , I )*DELTB( 2* I )*12» 

THETA ( 1, I )®THETA(1» I )*12» 

THETA (2, I )*THETA(2, I ) • 1 2 • 

510 AREA! I )=AREA(I )*144* 

WRITE (JTAPE, 2) 

WRITE {JTAPE, 4) 

WRITE (JTAPE, 5) 

WRITE (JTAPE, 6) 

WRITE (JTAPE, 12) 

DC 600 I»N,NX 

IF ( ISEP(l)-I) 560,565,560 
560 IF C ISEP(2)-I) 570,575,570 
565 IF C I SEP( 2 )~I ) 580,585,580 
570 WRITE (JTAPE, 7) 

1 I,X(I),PRES(I),C,DELTA(1, I),THETA(1, I ) , SHAPEH( 1 , I ) ,C ,C , 

1DELTA (2, I ) ,THETA(2 t I ) ,SHAPEH(2, I ) ,C* AREA! I ) , BLOCK! I ) , I 
GO TO 600 

575 WRITE (JTAPE, 7) .. .. „ 

1 I ,X( I) ,PRES ( I ) ,C, DELTA C 3,1) ,THETAI 1, I ) ,SHAPEHIltl ) ,C»A , 

1 DELTA (2, 1 ) »THETA(2* I ) »SHAPEH(2, I ) , A, AREAC I ) ,BLOCK( I ) , I 
GQ TO 600 

580 WRITE ( JTAPE, 7) . 

1 I f X( I) ,PRES ( I ) , A, DELTA ( 1» I ) , THETA C 1,1 ) ,SHAPEHf 1,1 I ,A,C , 

1DELTA(2,I),THETA(2,I) ?SHAPEH(2# 1 ) »C, AREA( I ) , BLOCK ( I ) *1 

GO TO 600 

585 WRITE (JTAPE, 7) .. 

1 I, X( I ) *PRES ( I) , A, DELTA! It I ), THETA! 1, I),SHAPEH( 1,1 ) cA*A « 

1DELTA (2 ,1 ) ,THETAC2» I>,SHAPEH< 2, I ) , A* AREA! 1 ) ,BLOCK( I ) , I 
600 CONTINUE 

WRITE (JTAPE, 8) 

DC 610 I*N,NX 
PRESU1*PRES(I)*144, 

X( I)«XII 1/12* 

THETA(l,I)«THfTA(l*I)/12. 

THETA (2* I )*THCTA(2,I1/12* 

610 AREAt I )*AREA( 1 3/144* 

RETURN 

END 


NEWR0182 

NEWR0183 

NEWR0184 

NEWR0185 

NEWR0186 

NEWR0187 

NEWR0188 

NEWR0189 

NEWR0190 

NEWR0191 

NEWR0192 

NEWR0193 

NEWR0194 

NEWR0195 

NEWR0196 

NEWR0197 

NEWR0198 

NEWR0199 

NEWR0200 

NEWR0201 

NEWR0202 

NEWR0203 

NEWR0204 

NEWR0205 

NEWR0206 

NEWR0207 

NEWR0208 

NEWR0209 

NEWR0210 

NEWR0211 

NEWR0212 

NEWR0213 

NEWR0214 

NEWR0215 

NEWR0216 

NEWR0217 

NEWR0218 

NEWR0219 

NEWR0220 

NEWR0221 

NEWR0222 

NEWR0223 

NEWR0224 

NEWR0225 

NEWR0226 

NEWR0227 

NEWR0228 

NEWR0229 

NEWR0230 

NEWR0231 

NEWR0232 

NEWRQ233 

NEWR0234 
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$IBFTC EKPC LIST 

SUBROUTINE EMPCTS 


THIS SUBROUTINE USES EMPIRICAL DATA TO CALCULATE THE DIFFUSER 
PERFORMANCE FROM THE COMPRESSOR OUTLET TO THE SNOUT LIP OR 
TO THE OOME 


EMPC0C10 

EKPC0020 

EMPC0030 

EMPC0040 

EMPC0050 

EMPC0C60 

EPPC0070 

EMPC0080 

.EMPC0090 

EMPCOIOO 

EKPC0110 

EKPC0120 

EMPC0130 

EMPC0140 

EMPC0150 

EMPC0160 

EKPC0170 

EMPC0180 


CGMMON/B2/ RAD { 16 )» DELTA! 2, 50 ), EE 1( 2) ,UJ ( 15 ) ,THA,THB, THS,PRES(50) 

1 NGC,NWAY, ZZR,ZZGAMA, BETA1, BETA2,XMVA«XMVB,XMVS« ZZCP.IDIF 
2 ,HSEP ,FLAREA(50),AREA(50) 

COMMON'/ B4/ DPR EF 

COMMON/B12/ X( 120) , CA ( 120 ) , CB( 120 >, SA{ 50 ) , SB( 50) , 

1 NRECT tNXDIFy NDIFFy NSNOUTf NXDIFIyNXDIF2fNXDIFA«NXDIFBf NTUBEy 

2 PRESIN, BLOCK ( 50 ), ABLOCK, SHAPEHI 2,50), 

3 VP DAT A (15 ) ,RDATA( 15) »NUPR, ARDTAt 2G0)»XLNDTA( 20)«EFDTA(200) ,NCDF, 

4NYDF » NZOF » EiDT A, NXDF, AREF, WIDTH 1, 

5XMACH , RHOREF, EFDT (3) 

C0M.M0N/B126/AF2, TANIA, TANIB, PANlA,PANlBf AFA, AFB,PREDM,STAGTEMPC0190 

I ,IBL,STPREF,PNRTA, PNRTB, DPHSNT, DOMLOS EMPC0200 

COMMON/BI2678/ JT APE ,IPRINT EMPC0210 

COMMON/BZERO/ UJY( II ) ,YY(11),F(2)»D9( 11), DUMMY (565) EMPC0220 

CCMM0N/B2EMP/ DUMMIEt 135)»UCL2 EFPC0230 

1 ,ZCTS EMPC0240 

EMPC0250 

1 FORMAT (1X//////18H *** ERROR MESSAGE/64H SOLUTION FAILED TO CALCULEMPC0260 
I ATE STATIC PRESSURE AT COMPRESSOR EXIT) EKPC0270 

21 FORMAT { 1H 149X3 (2H- ) ,7HRESULTS3( 2H -)//////21H0REFERENCE CONDI TI ONEMPC0280 
1 S/ IX 20 (1H-)/ 15 HO REFERENCE AREA13X1H*F10.3,6H SQ FT/19H REFERENCE VEMPC0290 
2ELOCITY9X1H=F10.1,UH FT PER SEC/18H INLET MACH NUMBER10X1H-F10. 3/EMPC0300 
3 22H REFERENCE MACH NUMBER6X1H-F10 .3/29H REFERENCE DYNAMIC PRESSUREEMPC0310 


4 =F10.2,4H PSI) 

22 FORMAT (115H0THE DIFFUSER TREATMENT USED IN THIS PROGRAM BECOMES 
1CREASIKGLY INACCURATE AT INLET MACH NUMBERS GREATER THAN 0#7> 
8765 FORMAT (7H0 EMPCTS 10F11. 3/ (7X10F11.3)) 

NX0F1=NXDIF-1 
GO TO (100, 104), NRECT 
100 DO 102 1*1 »NXDIF,NXDF1 
102 AREA ( I)=(CB(I)«*2-CA(I)**2)*3.141593 
GO TO 1505 

104 DO 105 I»l,NXDIF,NXDFl 

105 AREA ( I )*CB ( I )-CA( I ) 

CALCULATE STATIC PRESSURE AT INLET 

1505 LG=0 

106 FLARE A il)= AREA (1)*(1. -BLOCK! 1)1 


EMPC0320 

INEMPC0330 

EMPC0340 

EMPC0350 

EMPC0360 

EMPC0370 

EMPC0380 

EMPC0390 

EMPCOAOO 

EMPC0410 

EMPC0420 

EMPC0430 

EKPC044Q 

EMPC04SO 

EMPC0460 

EMPC0470 

EMPC0480 


PRESI N=STPREF 
A=l./ (2.*ZZCP*32.) 

C=-ST AGT 

1500 B=FLAREA(l)*PRESIN/( AF2*ZZR) 
U=(-B+SQRT(B*B-4.*A*C))/2./A 
TEMP® STAGT-U*U«A 

PRS=STPREF*(TEMP/ST AGT )••( ZZGAMA/(ZZGAMA—1« ) ) 
IF(ABS(PRS/PRESIN-1.)-0.0001> 1504,1504,1501 

1501 LG®LG+1 
PRESI N*PRS 

IF(LG-AO) 1500,1500,1502 


EMPC0490 

EMPC0500 

EMPC0510 

EMPC0520 

EKPC0530 

EFPC0540 

EMPC0550 

EMPC0560 

EMPC0570 

EMPC0580 

EMPC0590 
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1502 WRITE UTAPbtl) 

1 3 L=0 • 

RETURN 

1504 PRCSIN=PRS 

CALCULATE INLET A NO KFFCRENCE PROPERTIES 

ASS=FLAREA( 1) *0 . 532*ST PREF/AF2/SQRTC STAGT ) 

CALL GASTBL(ASS,TSS,PSS,YMACH,1, I 8L, ZZR.ZZ GAMA ) 

ASS=AREF*ASS/ FLAREA { 1) 

I F (NRECT.EQ.2 ) ASSESS/ W I0TH 1 

CALL GASTBLlASSf TSSt PSS» XM ACH, l , I BL, ZZK, ZZGAMA ) 
DPREF*STPREF*(1.0-PSS)/144. 

UREF*XMACH*SQRT (ZZGAMA*ZZ R*32.2*STAGT*TSS) 

IFdPRlNT.EQ.3J GO T3 107 
WRITE OUT REFERENCE CONDITIONS 

WRITE (JTAPE,21 ) AREF,UREF, YRACH.X” ACK, CPREF 
IF(YMACH.GE..7)WRITC( JTAPE,22) 

107 DPREF = CPRE F*144 • 

CALCUTdF CIFFUSCR P ERFGRR AN CO 

AR=AR E A ( NXDI F ) /AREA ( 1 ) 

B=B*AREA( 1 J/FLAREAl 1 ) 

U= (-B+SQRT (B*B-4.*A*C) J/2./A 
RH=PRESIN/ZZR/ (STAGT-U+U* A ) 

DYHD=RH*U*U/2./32. 

CPIDL=l.-l./AR/AR 

XLNGTH= C X C NX D I F J —X 11) )/ ( CB ( 1 J-CA (1) > 

E1=FLAREA(1)/AREA(1) 

CALL ERPANL(AR,XLNGTH, ARCT A, XLNCTA , EFDTA,NCDF, NYOF , NZDF ,E1 ,E 1DTA , 
1E2,EFECTN,IDIF,EFCT,1) 

CP ACT = CP I L' L* EF ECTN 

PRES ( NXDI F ) = PR ES IN + CYFD*CP ACT 

B=E2*AKEA (NXDIF) *PRL-S { NXC IF )/ AF2/2ZR 

U- (-B+SCRT (B*B-4 .*A«C))/2./A 

TEMP= ST AGT-U*U «A 

RH02=PRESCNXDIF)/ZZR/TE' 4 P 

UCL2=AF2/E2/AR , A (NXC I F J/RF02 

SUM=0 * 

CALL PRCFL (E2,UJY, ZCTS ) 

DC 120 J=l,ll 
UJY( J ) = UJY ( J J *iJCL2 
YY ( J } = $ U M 
120 SUR=SUR+0 • 1 


ERPC060C 
ERPCQfclO 
ERPG062C 
FRPCG630 
EVPC0640 
ERPC065C 
£ RPC0660 
ERPC0670 
ERPC0680 
EMPC0690 
ERPC0700 
ERPC0710 
EMPC0720 
EMPC0730 
E RPC0740 
ERPC0750 
ERPC0760 
ERPC077C 
ERPC0780 
ERPCC790 
ERPC0800 
ERPC0810 
ERPCC82C 
ERPC083C 
EKPC084G 
ERPC0850 
ERPC0860 
E R PC 0870 
ERPC088C 
EKPC0890 
ERPCC900 
ERPCC91C 
ERPC0920 
ERPC0930 
ERPC094C 
ERPC095C 
EFPC096C 
ERPCG97C 
ERPC0980 
ER.PC0990 
FRPC1COO 
ERPC1C1C 
ERPC1C20 
ERPC1C30 
ERPC1C40 
FRPC1C5C 


EKPC1C6C 

PRINT CUT S; LUIIGN ERPC1C7C 

ERPC1CBC 

CALL DCUTPTC S NCUT , CP IOL* CP ACT, E Ft: CTN , UJY, YY, 09, 2) FRPC1C9G 

C E RPC 1 IOC 

GOTO (150,1200, 150), NGC ERPC1110 

1200 GC TO (121*130), NRECT ERPC1120 

121 F(l) = (SMNXKIF + l )**2-CA(NXf:iF+l)*»2)/(CB(NXDIF + l)**2-CA(NXDIF+l>**ERPCH30 

12) ERPC1140 


F(2)= (r (NX , IF+1 )*«2-SB(N<CIF+l)*«2)/(C3(NXDIF+l)**2-CA(NXDIF+l)**ERPCll5C 


12) ERPC1160 

GC TO 1 A t’ RPC 1170 

130 F(2)*(Ci > (NX.. K+1)-SB{ NXC IF+1) )/{ CH ( NXC IF+1 )-CA (NXD IF+1 ) ) ERPC118C 

F(l) = (SA(NXCir + l )-CA(NX0IF+l) )/{CB(NXf!lF + l )-CA (NXD IF+1)) E RPC 11 90 

131 EEl(l)=I.-(i.-E2)/2./F(l) ERPC1200 
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*70 

EEl(2)*l.-(l.-E2)/2./F<2) 

150 RETURN 

ENTRY HERE DURING NASS FLOW ITERATION WITH MIXING EQUATION BEING 
USED IK THE PASSAGE BETWEEN SNOUT AND OUTER CASING 

ENTRY EMPDT1 

XMA=AFA/AF2 

XMB=AFE/AF2 

CALL PR0FL1 (XMAf XMB«YA y YBy EA« EB« ES»BETAly BETA2*ZCTS) 

THA=AREA( NXDIF)*YA 
THB=AREA(NXDIF)*U.-YB) 

THS*ARfcA{ KXDIF )-THA-THB 
XMVA«EA*UCL2 
XMVB*EE*UCL2 
XMVS«ES*UCL2 
BETA1=BETA1 
BETA2=BETA2 
900 RETURN 
END 


EPPC1210 
EPPC1220 
EPPC1230 
EMPC1240 
EMPC1250 
EPPC1260 
EMPC1270 
EMPC1280 
EK PC 1290 
EPPC1300 
EPPC1310 
EPPC1320 
EPPC1330 
EFPC13A0 
EPPC1350 
EKPC1360 
EPPC137C 
EMPC1380 
EMPC1390 
EMPCIAOO 
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tIBPTC HMPS 

SUPRCUTINF 


THIS SUBROUTINE CALCULATES THE FLOW PROPERTIES IN THE TWO ANHUI 
USING EWPI R!C AL DATA 


EMPSTA EPPSOOIO 

EPPSCC20 
EPPSCC30 
EPPSOOAO 
EFPS0050 

CCMMON/e2/ RAo(16) ,OELT A( 2 , 50 > , EEl { 2 ) , UJ ( 15) ,THA ,THB ,THS,PRES(50) ,EpPS0C6C 
INGC»NWAY»ZZR»ZZGAHA,BETA1* EETA2,XMVA,XHVB,XHVS, ZZCPylOIF E PPS0070 

2yHSFP ,FL APtA(SO) ,AREA(50 > EPPS0080 

CCPPCN/G12/ X(120),CA( 120), CB( 120 ) , S A ( 5C ) , SB ( 5C ) » EPPS0090 

1NRECT »NXDl F,NC IFFyNSNOUTyNXDIF l»NX0IF2yNXDIFA»N*DIF6 yNTUBEy EPPS01CC 

2PHESIN, BLCCKI50), ABLCCK, SHAPEHI 2y50)» EPPSOIIO 

3VPDATA(l5»,RDATA(l5I,NUPRf ARCT* ( 20C ) ♦ XLNDTA{ 20) ,EFDTA(20C) yNCOFy EMPS0120 
ANYDF,NZCF,E1UTA, NXCFy AREF y W ICTH ly EPPS013C 

5XPACH»RH0REF, EFCTI3) ENPS01AC 

CCPMCN/B126/AF2»TANiA» TAN1B» PAN1A.PAN1B# AFAy AM y FREON ySTAGT EPPS 0150 

1 » I BL» STPREFyPNRTAyPNRT By CPHSNT yOOMLOS EPPS0I60 

CCPPCN/EI2678/JTAPE yIPRINT 

CCMMON/BZERO/ ALPB ( 50 ) , ALPC ( 50) y ALPC ( 5 C ) y 

ICLPPY (AOO ) , ALPAI50) 

CCPPCN/P2EMP/ NXC( 2),AR( 3,2),TH(2),R(2),T(2),ASTR(2),AF(2) , 
lLJY(ll)tXX(2»*DYD(2) y AL FA (2 y50 ) y NX( 2) ,UCL2 
l.ZCTS 

CCMPIUN/BPL0S/PLCSSI2) 


a 765 FqR PAT ( 7H0 EMPSTA l OF ll*3/(7Xl OF 11*31) 


EPPS0I70 

EPPS018C 

EPPS0190 

EPPS0200 

EMPS0210 

EMPS0220 

EPPS0230 

EPPS02A0 

EMPS0250 


SET UP VALUES NEEOED IN THE DC LOOP 

NXDF l*NXCI F- I 
NX ( 1 ) *NXCI FI 
NX ( 2 ) *NXD IF2 
NXD ( 1 )*KXDI FA 
NXO (2 )*NxCl FB 

CALL SLCPEIXyCAyNXC I FyNXQ IpAy ALPA , NXD IFA+l ) 

CALL SLOPF ( X, CByNXD IFyNXDI FGyALPB f NXO IFB + l ) 

CALL SLOPE ( X y SAyNXC IF42y NXCIFAy ALPCyNXOIFA^l ) 

CALL SLCPF(XySBtNX0IF+2,NXCIFByALPCyNX0IFB+l) 

NXDF2*NXDIF*1 

DC 119 I-NXD IF f NXCF2 

ALPC ( I )*ALPA( I ) 

119 ALPD ( I )*ALPB ( I ) 

DO 120 I*NXD I F yNxCIFA 

CC»1 

CE*l 

l F ( ALPA (I ) . LE. 0 • ) DO*- 1 
IF(ALPC(I).LE,0.) DE*-l 

12 0 ALFA ' l , I )* (OD*ATAN(DD*ALPA( I ) KOE*ATAN <OE*ALPC< I ) ) 1/2. 

CC 121 I*NXOIF»NXCIFB 

DC*l 

DE*l 

I F ( ALPB ( I ) «LE «0* 1 CC*-1 
IFIALPDIU.LE.O.) DE*-l 

121 ALFA (2 1 1 )*<CDMTAN(CD*AlPetIM*DE*ATAN(DEAAlM( I)))/2. 

DC 130 K*1 ,2 
XX (K) *0. 

NXX*NX(K)-l 
DC 130 I *NXCI F,NXX 

130 XX(K)*XX(K)+(X(I* 1 )-X(I n/C0S((ALFA<K,n+ALFAIK,l4in/2.) 
C C TO ( 1A0 y 1A5 ) y NRECT 


E PPS0260 
EPPSQ270 
EPPS0280 
EMPS0290 
E PPS0300 
EPPS031C 
EPPSC32C 
EMPS0330 
EMPS03A0 
EPPS035C 
E PPSC360 
EMPS0370 
EMPS038C 
E PPS0390 
EPPSOAOO 
EMPS0A10 
EMPS0A20 
EMPSG430 
E PPSOAAO 
EMPS0A50 
EPPS0A60 
EPPS0A70 
EPPS0A80 
EPPS0A90 
EMPS0500 
EMPS0510 
EPPSC520 
E PPS0530 
EMPS05A0 
E PPS0550 
E PPS0560 
EMPS0570 
EPPS0580 
E Mp S05 9 C 


o o o non 


C 

C 


c 

c 


140 AR(2,n»3.l4159*(SA( 
AK( If n*3.14l59*(SA< 
AR(2,2)=3.14159*(C8( 
AR(3,2)»3.141S9*(CB( 
A R ( l ,l)«3.14159*(SA( 
1*CCS(ALFA( 1,NXD1F+1 ) 
AR( 1,2)»3.14159*(CB( 
l*COS(ALFA(2,NXOIF4l) 
GC TC 147 

145 AR(2,1)*(SA(NXCIFI)- 
AR(3»1)*(SA(NX0IFA)- 
AP(2»2 )=(CB(NXCIF2)- 
AR(3,2)*(CE(NXCIFB)- 
AR ( l , l )« ( SA ( NXO IF •*! ) 
AR{ 1 1 2) * (CB (NXO IF ♦ l ) 
147 R( U»(SA(NXCIF+1)-CA 
R(2)*(CB(NXCIF4l)-$B 
R[ TURN 


NXDIF1)**2“CA(NXDIFI)442 )*CCS( ALFA( ltNXCIFl) ) 
NXCIFA)**2>CA(NX0IFA)««2) 

NXO tF2 )4*2-SB(NXDlF2 )**2 )*C0 S (ALFA (2 ,NX0I F2) 1 
NXO IFB )**2-SB(NXCIFB)**2 ) 

NXC I F* 1 )**2“CA (NXC IF + 1)**2) 

) 

NXDIF41)**2-SB(NXCIF+1)**2» 

) 

CA ( NXO IF1 U*CO$( ALFA (1 ,NXO IF 1 ) ) 

CA (NXO IFA ) ) 

SB (NXO IF 2) )*COS(ALFA( 2»NXCIF2) ) 

SE(NXCIFB)) 

-CA(NXCIFU)) *C0S(ALFA(l,NX0IF4in 
-SB ( NXO IF 4 1 ) ) *C0S(ALPA(2,NX0IF4in 
(NX0IF4l))*C0S(ALFA(l,NX0IF4l)) 

(NXDIF+1)) *COS ( ALF A ( 2*NX0IF+1 ) ) 


entry here curing interaticn cn mass split 

ENTRY EMPSA1 

CALCULATE DIFFUSER PERFORMANCE 

AF(U = AFA 
AF ( 2 ) = AFB 

TH ( 1 ) * THA4CCS ( ALFA( l,NXOIFl) ) 
rH(2l = THB4CcS(ALFA(2,NXCI F2U 


EFPS0600 
EMPS0610 
EPPS062C 
EPPS06 30 
EPPS0640 
EPPS0650 
EPPS066C 
EPPS0670 
EPPS0680 
EPPS0690 
EPPS070C 
EFPS071C 
EPPS0720 
ENPS0730 
EPPS0740 
E PPS075C 
EPPS0760 
EPPS0770 
EPPS078C 
E PPSC790 
EPPS0800 
EPPS0810 
EPPS082C 
E PPS0830 
EFPS0840 
EPPS0850 
EPPS0860 
EPPSC870 
EPPSC88C 


OYDl 1)=XMVA**2 
DY0(2)=XMVe»*2 
CC 500 K=l,2 
IF(K.EQ.l) ET *8£TA1 
IF(K.EG.2) BT *BETA2 
ARR«AR(2»KJ/TH(K) 

200 ElM«-(l«-EEi(K))*AR(lfK)/TH(K) 
RHC*AF(K)/TH(K)/SCPT(CYO(K )) 
DYHD=RHC*DYC(K)/2*/32«*BT4*2 


EPPSC890 
EPPS0900 
EPPS09 10 
EPPS0920 
EPPS09 30 
EPPS094C 
E PPS0950 
EPPS096C 
EPPS0970 


! 

i 


I 

| 


t 

r 


! 


CPIDL«l.-l./ARR/ARR 

XLN=XX(K)/R(K) 

I F ( A RR- 1 • ) 223,223*222 

22 2 CALL EPPANL(ARR,xLN, AROTA, XlNCTA* EFDTA,NCCF,NYOF ,NZDF ,E l *E10TA, 
1E2,EFECTN,I0IF,EFDT, K+II 

GC TO 224 

ASSUME THAT FLOW MAINTAINS A SIMILAR PROFILE IF PASSAGE ACTS 

AS A NCZZLE 

223 EFECTN* 1. 

E 2=E 1 

?24 CPACT=CPICL*EFECTN 

PRSCUT=PRES(NX0IF)4CPACT*DYFD 
A*1./(ZZCP*2.432. ) 

B»E2*AR(2,K)*PRSQU7/(AF2*ZZR) 

C*-$T AGT 

UM»(-8«-SCRT(B*B-4.*A*C))/2./A 

RHC*PRSC'JT/ZZR/(STAGT-UM*UM#A1 

UCL3«AF(X)/E2/AR(2,K)/RH0 

CALCULATE OIFFUSER PERFORMANCE ALLOWING FOR MIXING 


EPPS098C 

EPPS099C 

EPPSICCC 

EPPSlOlO 

EMPS1020 

EPPS1030 

E PPS104C 

EPPSIC5C 

EMPS1060 

EFPS1070 j 

EMPSIC80 ! 

EPPS1090 

EMPSllOO , 

EPPS1110 

EPPS1120 

EPPS 1130 

EM PS 1140 ! 

EHPS1150 I 

EMPS1160 

6PPS1170 1 

EMPS1180 i 

EMPS1190 


mo r> r> o 
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CALL PRCFUE2,UJYtZAN> 

EPPSI200 

EMPS1210 


CALL PRCFLl(L. v G.tC3»C4«05iC6.07 ( BTt06t2AN) 

EPPS1220 


ARR«AR(3,Kl/AR(2 t KI 

EPPS1230 


DYH*RHC*UCL3+*2/32«/2« 

EPPS1240 


8TA-I./E2 

EMPS1250 


PRR-PRSCUT+ ( 1 . « 1 ./ARR) • ( BT A-l./AKR )*0*H 

EMPS1260 

1/ETA**2 

EPPS1270 


AZ *l.-l*/(AR(3»K)/TP(K| 1**2 

EPPS1280 


CPIU*(2.*CBT-1«)4AZ|/BT**2 

EMPS1290 


CALCULATE TEMPERATURE AT INLET TO ANNULI I AND TOTAL PRESSURE 

EMPS1300 
LOSS EMPS131C 


8=1. 

EPPS1320 

EPPS1330 


C = -ST AGT 

EPPS1340 


A= ( AF ( K ) * ZZR/AR( 3»K)/PRR) ** 2 /t 2.*ZZCP*32. ) 

EMPS1350 


T ANA= ( -E + SCRT ( B*B-A.*A*C )l/2. /A 

EPPS1360 


PNRT=PRR*(STAGT/TANA)*PIZZ6aMA/(ZZCAMA- 1. n 

EPPS1370 


PkRT=PNrT-PLGSS(K) 

EPPS1380 


ASS=Af (K)*SQRT($TAGT )/ (0»532*PNRT 1 

EPPS139C 


ASS=AR(3, K)/ASS 

EPPS14GC 


CALL G AST EL (ASS, RAT, RAP,XmACH,1, IBL, ZZR* ZZCAMA ) 

EPPS1410 


PRR=R AP*PNRT 

EPPS1420 


T ANA = ST AGT*R AT 

EPPS1430 


CFCT= (PRR-PRES(NXDIF) I/OYHD 

EPPS1440 


EFECT=CPCT/CPIO 

EPPS1450 


DELTP=(STPREF-PKRT)/STPREF 

EPPS1460 


IF(IPRINT)300, 300,250 

EMPSls 7C 


PRINT CUT RESULTS 

EPPS148C 

EPPS1490 

250 

EMPS1500 

CALL C CUT PI (NSNCUT,CPIOL, CPACT , EPECTN,CPIO,CPCT f EFECT »2t K* THIKI/AREMPS151G 


1( 1 ,K) »DELTp) 

EMPS1520 

300 

GO TO (323 ,324) ,K 

EPPS 15 30 

32 3 

PAN1 A*PRR 

EPPS15A0 


IF(DELTP.LT.O.)PANlA«PANlA*( l.+OEL Tp ) 

EMPS1550 


TANL A*TANA 

EPPS156Q 


pnrta=pnrt 

EPPS1570 


GC TO 500 

EMPS1580 

32 A 

PANlB*PRR 

EPPS1590 


IF(DELTP.LT.O.)PANie«PANlBP( i.+CEL TP ) 

EMPS1600 


TAN1B=T ANA 

EPPS 16 10 


pnrtb*pnrt 

EPPS1620 


GC TC 500 

EPPS1 630 

500 

CCNTINUE 

EPPS164C 

900 

RETURN 

EPPS1650 


END 

EPPS1660 

YOUR CARD TOTAL IS 168 



$IBFTC EPPA 

SUBROUTINE EMPANL ( AR,XLNGTH, ARDTA, XLNDTA, EFDTA,NCDF»NYDF ,NZDF ,E 1 » EFPAOCOl 


1E1DTA,£2» EFECTN, IDIF» EFDT »NUDF) 

EPPA0002 


DIMENSION ARDTAI 1) » XLNDTA ( 1),EF0TA( 1) 

EPPA0003 

1 

ffcFDT(l) 

EKPA0004 

C 


ERPA0005 


IF(IDIF)200, 100,200 

EMPA0C06 

100 

CALL INTPL8I AR.XLNGTH, ARDTA, EFOTA f XlNOTA,NCDF,NYDF*NZDF # EFECT> 

EFPA0C07 

101 

SUM=0.25 

EPPA0008 


EFB=0 • 5 

ERPA0009 


DO 120 J=1 ,14 

ERPA0C10 


R=2./0.15«{0.8 5-aDTA>**2*C0S(3.141593*<EFB-0.5>>*EFB-EFECT 

EKPA0C11 


IF (R) 110,130,117 

EPPA0012 

117 

EFB=E FH-SUM 

EPPA0C13 


GO TO 120 

ERPA0C14 

110 

EFB=EFE+SUM 

ERPA0015 

120 

SUP,= SUP/2. 

EKPA0016 

130 

EFECTN=EFB*2. /0.15*<0. 85-El )**2*C0S< 3. 141593*1 EFB-0.5M 

ERPA0017 

135 

E2=l. /SORT (AR**2*( l./El**2-EFECTN*< l.-l./AR**2 )) ) 

EMPA0018 


CPIDL=1.-1./AR**2 

ERPA0019 


GC TO 900 

EPPA0020 

200 

EFECTN=EFOT(NUOF) 

ERPA0021 


GC TO 135 

EMPA0022 

900 

RETURN 

ERPA0023 


END 

ERPA0024 



o o o r> C) r> r> 


SIBFTC PROF 

SUBRCUTI NE PROFL ( E2, UJ , l ) 

THIS SUBROUTINE ASSURES A TOP HAT PROFILE 
DIMENSION UJ(ll) 

Z«E 2 

DO LOO >1,11 
100 UJ(J>«1. 

EK«1. 

DC 110 >1*5 
JJ*12- J 

IF (EK.lT«E2) GO TO 105 
U(J)-0. 

UJ(JJ)*0« 

105 EK«6K-0.2 
110 CONTINUE 
RETURN 

CALCULATE THEORETICAL FLOW SPLIT 

ENTRY PR0FL1 (XHa»XNI» YA»Y 8»iAfllt i$»IA*SI,i|) 
C M THIS CARO HANK M 

YA«(l.-E2l/2«+XHA*ia 
YB*l •- ( (l*-E2)/2«*XPB6E2 ) 

IFIXHA.EC.O.) YE«0. 

IFIXNe.EC.O. )YA-1. 

E A*XMA*E2/ ( Y A 1 
E8*XMB*E2/ 1 1 •— YB > 

E S*i • 

8A»i./£A 

ee»i./EB 

RETURN 

ENC 


PRCF0001 
PRQF0002 
PR0F0003 
PRCFCCCA 
PRCF0005 
PRCFG006 
PPOF0007 
PROF0C08 
PR0F0C09 
PROFOOIO 
PPOFOOU 
PROF0012 
PRCF0013 
PR0F001A 
PROFOO’5 
PROFOC 16 
PRCF0017 
PRCF0018 
PR0F0019 
PROF0020 
PRCF0021 
PRCF0022 
RpOFOOIS 
PROP002A 
PRCFC025 
PR0F0026 
PR0F002 7 
PR0F0028 
PRCFG029 
PRCF0030 
PRCF0031 
PRCF0C32 
PRCF0033 
PRCF0034 


YOUR CARC TCTAL IS 36 


on o o o o 


« *. * * 

tIBPTC DOPT LIST 

SUBROUTINE OOUTPT ( N SNOUT, CPI OL , CP ACT, EFECT«UJ, Y ,YY,N) DCPTOCOl 

OCPTOOO? 

THIS SUBROUTINE PRINTS OUT RESULTS FROM THE DIFFUSER SUBPROGRAM CCPT0003 

D0PT0004 

CCMM0N/BI2678/ JTAPE.IPRINT D0PT0C05 

DIMENSION UJ( 11) , Y C 1 1 1 ,YY(ll) 0CPT0006 

DIMENSION DA(4) CCPT0007 

OATA OA(l) ,DA(2)/4H IN, AH OUT/ DCPT0008 

DATA '^(3) ,DA(4)/6H IS .6HISN0T/ D0PTQC09 

OCPTOOiO 

2 FORMAT (59H IN THIS PART OF THE DIFFUSER A STREAMTUBE ANALYSIS IS UOCPTOOll 

ISFO) OOP T0012 

3 F QRMAT ( 52H IN THIS PART OF THE DIFFUSER EMPIRICAL DATA IS USED) D0PT0013 

A FORMAT ( OSH In THIS PART OF THE DIFFUSER THE PERFORMANCE IS CALCULADCPTOO IA 

l TED USING THE MIXING EQUATION) DCPT0015 

8 FORMAT ( A2X ,36HVEL0CITY PROFILE At EXIT OF DIFFUSER) DCPT0016 

9 FORMAT (32H FRACTIONAL ANNULUS HEIGHT 1 1 ( 2X ,F6. 3) ) 00PT0017 

10 FORMAT ( 32H HEIGHT ALLOWING FOR BLOCKAGE. .. ,1 l(2X ,F6. 3)1 D0PT001B 

11 FORMAT ( 32H VELOCITY, FT PER SEC ,IIF8.2) DCPT0019 

IA FORMAT! 10X.32HI0EAL PRESSURE RECOVERY COEFF. »,F6.3/ DCPT0020 

1 1 OX, 3 2H PRESSURE RECOVERY COEFF. «,F6.3/ D0PT0021 

2 l0X,32H0IF FUSER EFFECTIVENESS «,F6.3/ DCPT0022 

3 1 OX, 38 H FRACTIONAL TOTAL PRESSURE LOSS « O.COG) DCPT0023 

15 FORMAT! 10X.32HICEAL PRESSURE RECOVERY COEFF. »,F6.3, CCPT002A 

128H ! INCLUDING MIXING EFFECTS)/ 00PT0025 

1 1 OX, 3 2H PRESSURE RECOVERY COEFF. »,F6.3/ DCPT0026 

2 10X,32HDI F FUSER EFFECTIVENESS *,F6.3/ 0CPT0027 

3 10X , 32 HF PACT I ONAL TOTAL PRESSURE LOSS «,F6.3*ASH (BASED 0N0CPT0028 

1 MEAN CONDITIONS AT COMPRESSOR OUTLET)) OCPT0029 

20 FORMAT! 1X//////6AH OIFFUSER PARAMETERS - COMPRESSOR OUTLET TO THE 0CPT0030 

TUP OF THE SNCUT/6AH 0CPTC03I 

2 ) 0CPT0032 

21 f 0RMATUX//////52H OIFFUSER PARAMETERS - COMPRESSOR OUTLET TO THE DCPT0033 

IDCME/52H ) DCPT0C3A 

22 FORMAT! 1X//////23H DIFFUSER PARAMETERS - *A5,27H DIFFUSING PASSAGEDCPTC035 

1 BETWEEN , A5 , 1 1H AND CASING/71H CCPT0036 

2 ) DOPT0037 

2 A FORMAT ( 50X ,2 1H OIFFUSER PERFORMANCE) DOPT0038 

25 FORMAT ( 30H FLCW ALLOWED TO MIX AT OUTLET) DCPT0039 

26 FORMAT (20H NO MIXING AT OUTLET) DCPT0040 

41 FORMAT! 34H GAS EXPANDED I SENTROPI CALL Y FROM ,F8.3,9H PSIA TO ,F8.00PT0041 

13, 5H PSIA) D0PT0G42 

42 FCRMAT !59H FRACTIONAL TOTAL PRESSURE LOSS DUE TO MIXING ON THE D0MD0PT0043 

IE *,F6.3 ) DCPT0044 

40 FORMAT (54H MISMATCH AT THE SNOUT IS CHARACTERISED BY THE RATIO -/ UPT0045 

1 96H (TOTAL STREAMTUBE AREA JUST BEFORE THE SNOUT) /(FLOW AREA JUST00PT0046 

2 INSIDE THE SNOUT). THIS RATIO IS ,F6. 3/ DCPTG047 

3 17H AS THIS RATIO IS, A4, 53HS IOE THE RANGE 0.85-1.15 THE FLOW SPLI DCPT0048 

4 T ON THt" SNOUT ,A6,13H WELL MATCHED) DOPT0049 

43 FORMAT! 88H THIS SECTION HAS AN AREA RATIO LESS THAN ONE AND ACTS D0PT0050 

IAS A NOZZLE ANO NOT AS A DIFFUSER/ 106H THE VALUE PRINTEO OUT AS TDOPTC051 
2HE OIFFUSER EFFECTIVENESS IS NOT AN INDICATION OF HOW WELL THE SECDCPT0052 
3 T I ON PERFORMS) 0CPT0053 

52 FCRMAT (IX/) D0PT0054 

53 FORMAT (IX/// ) OOPTO055 

0CPT0056 
DCPT0057 

IF(NSNOUT-l) 101, 100,101 0OPTO058 

100 WRI TE ( JTAPE,20 ) D0PT0059 



non 
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GO TO 102 

0DPT0060 

101 

WRITE(JTAPE,2l) 

O0PTOO61 

102 

GO TO (103,104*120), N 

OCPTOC62 

103 

WRITE! JT APE, 2 ) 

0CPT0063 


GO TO HO 

0CPT0064 

104 

WRITE<JTAPE,3) 

00PT0065 

110 

WRITE I JT APE, 53) 

0CPT0066 


WRI TE ( JT APE, 24) 

DCPT0067 


WRITE! JTAPE, 52) 

CCPT0068 


WRI TE ( JTAPE»26) 

DCPT0069 


WRI TE ( JTAPE, 14) CPIOL,CPACT, EFECT 

D0PT0C70 


WRITE! JTAPE, 53) 

DCPTOOTl 


GO TO (111, 112,120), N 

0CPT0072 

111 

WRITE ( JT APE, 8 ) 

O0PTOO73 


WRI TE ( JTaPE, 52 ) 

DOPTOC74 


WRITE! JT APE, 9 1 (VU), 1-1,11) 

DCPT0075 


WR ITE C JTAPE, 10) (YYU ), I«l, ID 

0CPTO076 


WRI TE! JTAPE, li ) (Uj( I),I-1, 11) 

DCPT0077 


GO TO 120 

D0PTO078 

112 

WRITE(JTAPE,8 ) 

DCPT0079 


WRITE (JTAPE, 52) 

DCPT0080 


WRI TE ( JTAPE, 9 ) (Y( 1 ), I»l, 11) 

DCPT0081 


WRI TE! JTAPE, 1 1 1 (UJ< I ), I-i, 11 ) 

OCPT0082 

120 

RETURN 

DCPT008 3 



0CPTO084 


ENTRY HERE TO PRINT OUT PERFORMANCE OP FLOW IN ANNULI I 

DOPT0085 



D0PTO086 


ENTRY OOUTP1!NSNOUT,CPIOL»CPACT,EFECT»CPIO v CPAC*EFEC»NvK»AR'DP) 

DOPTOC8 ' 



DCPT0088 


DATA A,B,C,D/5HINNER,5HOUTER*5N$NOUT , 5HOOME t 

CCPT0089 


GO TO (301*302), K 

D0PTO090 

301 

WW»A 

DCPT0091 


GC TO 303 

DCPT0092 

302 

WW S B 

DC PT0093 

303 

IF! NSNOUT-1) 600,310,600 

C0PT0094 

310 

WRI TE! JTAPE, 22 )MW ,C 

DCPT0C95 


GO TO(3ll,312,313),N 

DCPT0096 

311 

WR ITE (JTAPE, 2 ) 

CCPT0097 


GO TO 320 

00PT0C98 

312 

WRITE (JTAPE, 3) 

0CPT0099 


GC TO 320 

DCPTOIOO 

313 

WR ITE ( JTAPE, 4 1 

DCPT0101 


GO TO 350 

00PTO102 

320 

WRITE! JTAPE ,53 1 

DOPT0103 


WRI TE ( JT APE, 24 1 

DCPT0104 


WR ITE ( JTAPE, 52) 

DCPT0105 


WRITE! JTAPE, 26) 

00PTC106 


WRI TE ( JTAPE, 14 ) CP(OL,CPACT, EFECT 

00PT0107 


WRI TE ( JT APE, 25) 

DCPT0108 


WRITE ( JTAPE, l 5) CP 10, CP AC, EFEC«DP 

OCPT0109 


GO TO 500 

DCPT0110 

350 

WR I TE ( J TAPE,53 1 

DOPTOlll 


WRI TE ( JT APE»24 1 

0CPTO112 


WRITE ( JTAPE *52) 

DC PT0113 


WRITE! JTAPE, 25) 

DOPT0114 


WRITE! JTAPE ii5) CPI 0,CPAC, EFEC.OP 

OOPTOl 15 

500 

IF(CPID.LE.).O.OR.CPI0L.LE,0«O) WR ITE! JTAPE, 43) 

DOPTOH6 


IA-1 

DCPTOliT 


I B-3 

ropTOiie 


IF(AB$(1.-!R).IE.0.15) GO TO SOI 

OOPTOl 19 


178 

* * *• * 

IA*2 
I B*4 

501 WRITElJTAPEtAO) AR.OAU A) f OA( IB) 

RETURN 

C 

600 WRITE!JTAPE,22)WW,D 
WRITEUTAPE.A) 

WRITE( jTAPE,53> 

CpI0L«CPI0L/lA4. 

CPACT*CPACT/144* 

WRITE! JTAPEfAl )CP ICU iCPACT 
WRITE! JT API | AI) OP 
CPIDL“CPI0l*l44* 

CPACT«CPACT*IA4* 

RE .URN 
ENO 

YOUR CARO TOTAL IS 136 


0CPT0120 

DCPT0121 

D0PT0122 

0CPT0123 

0CPT0124 

D0PTO125 

00PT0126 

DCPT0127 

0CPT0128 

CCPT0129 

OOPTOUO 

DCPTOUl 

0CM0132 

0CPt0l33 

DCPT013A 

0GPT0135 



nooociooooo 
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ilBFTC GAST 

SUBROUTINE 


GASTBL(X,Y,Z, XMACH, N, IBt, ZZR yZZGAMA! 


NO 


1 .) 


X*ARE A ( I ) /AREA (HACK 
Y=TEMP ( I ) /ST AGT 
Z= PR E S ( I ) / ST AG P 
XMACH=MACH NUMEER 

N=0 SUBROUTINE ACCEPTS A VALUE Z TO GIVE 

N=1 SUBROUTINE ACCEPTS A VALUE X TO GIVE 

N=-l SUBROUTINE RETURN THE VALUE OF R ANO 
IN THIS SUBROUTINE GAMMA«1.4 ANO R-53.3 LBF 


X, Y,AND 
Yy Z« AND 
GAMMA 
FT SEC 


XMACH 

XMACH 


11 

12 


COMMON/812678/ JTAPEy IPRINT 

FORMAT (42H NEGATIVE VALUE CALCULATED FOR MACH NUMBER/20N SOLUTION 

.TERMINATED) 

FORMAT (49H MACH NUMBER GREATER THAN ONE. SOLUTION CONTINUED) 
FORMAT (I8H *** ERROR MESSAGE) 

FORMAT (IX//////) 


50 

100 


101 


102 

103 


104 


200 


205 

210 


220 

900 


IF(N)5C, 100,200 
ZZGAKA=1.4 
ZZR=5 3 • 3 
RETURN 
Y=Z**(2./7.) 

IF(Z.LE.O..OR.Z.GT.l.) GO TO 101 
XMACH=5QRT(5.*((l./Z)**(2./7.)-l.>) 

I BL=1 

I F (XMACH ) 101,101,102 
WRITE(JTAPE»I2) 

WRITE(JTAPE,11> 

WRITE ( JTAPEyl ) 

1 3L=0 
RETURN 

I F (XMACH-1 • ) 104, 104, 103 
WRITE (JTAPE, 12) 

WRITE (JT APE, 11) 

WRITE (JTAPE, 2) 

ASTAR=1.2«*3. 

A = ( (1 .+0.2*XMACH**2. )*«3. )/XMACH 
X=A/ASTAR 
RETURN 
XMACH=1-/X 

I F (X. LT . 1 . ) GO TO 101 
DC 210 J*l,20 

R=U.+C.2*XMACH*«2.)**3./<1.2**3.<W«ACII)->«( 

DRDM«(1.2*U.-f0.2*XN. CH«*2)**2-( l.^0.a«XNAC#ll^2)««»/Xl^6Hs*2)/1.2*GAST0045 

*3 GAST0046 

OM=-R/CROM GAST0C47 

IF(ABS(DM/XMACH)-0.0001)220,205,205 GAST0048 

XMACH=XMACH*DM GAST0049 

CONTINUE GAST0050 

IBL=0 GAST0051 

RETURN GAST0052 

7«1./ (l.+0.2«XMACH**t.)**3.5 GAST0C53 

Y«Z**(2./7.) GAST0054 

RETURN GAST0055 

END GAST0056 


GAST0C01 
GAST0002 
GAST0003 
GAST0004 
GAST0C05 
GAST0006 
GAST0007 
GAST0008 
GAST0C09 
GAST0C10 
GAST001 1 
GAST0C12 
GAST0C13 
GAST0014 
GAST001 5 
GAST0016 
GASTOOI7 
GAST0018 
GAST0019 
GAST0C20 
GAST0021 
GAST0022 
GAST0C23 
GAST0C24 
GAST0025 
GAST0026 
GAST0027 
GAST0C28 
GAST0C29 
GAST0030 
GAST0031 
GAST0C32 
GAST0033 
GASTCC34 
GAST0C35 
GAST0036 
GAST0037 
GAST0038 
GAST0039 
GAST0040 
GAST0041 
GAST0042 
GAST0043 
GAST0C44 
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BFYC 

SLOP 



SUBROUTINE SLOPE <X,Y,LS,L£,0Y0X, NX) 

SL0P0001 

SL0P0C02 


DIMENSION X(l> ,Y(1),DY0X(1) 

SL0P0C03 

SL0P0004 


NIS=0 

SLOP0005 


I S=LS 

SLCP0006 


I E=LE 

SL0P0C07 


IF(IS-1)4*4,3 

SL0P0C08 

3 

IS=IS-1 

SL0P0C09 


NIS=i 

SL0P0010 


HLD=0YCXC IS) 

SL0P001 1 

4 

NI E-0 

SLOP0012 


IF(NX-IE) 45,45,40 

SL0P0013 

40 

IE=I E+l 

SL0P0014 


NI E=1 

SL0P0C15 


HLE=DYCX( IE) 

SLOP0016 

45 

CONTINUE 

SL0P0C17 


IF(IS-IE) 8,5,8 

SL0P0C1 8 

5 

DYDXt IS)=0.0 

SL0P0C19 


GO TO 60 

SLCP0020 

8 

DO 50 I=IS,IE 

SL0P0021 


IF(I-IS) 10,10,20 

SLCP0022 

10 

DX1=X { IS+1 )-*X ( IS ) 

SL0P0C23 


DY1*YUS+1)-YC IS) 

SL0P0024 


DY0X(IS)=CY1/DX1 

SLOP0025 


GC TO 50 

SLCP0C26 

20 

IF(I-IE) 30,41,60 

SL0P0C27 

30 

DYOX( I)*((Y(I+1)*-Y(I) )/(XII*l)-Xt I))+(Y(I 1—Y( I 

-l))/CX(n-XCI-l)J)/SL0P0C28 

12.0 

SLOP0029 


GO TO 50 

SLCP0C30 

41 

DXIE=X( IE)-X(I E-l) 

SLOP0031 


OYIE =Y(IE)-Y( IE-l) 

SLOP0032 


DYDXf IE)=DYIE/CXIE 

SL0P0C33 

50 

CONTINUE 

SL0P0C34 

51 

IF(NIS-l) 53,52,52 

SLOPC035 

52 

DYDXl IS)s=HLD 

SLOP0036 

53 

IF (NI E-l ) 55,54,54 

SLOP0037 

54 

DYDX I IE)*HLE 

SLOP0038 

55 

CONTINUE 

SLOP0039 

60 

RETURN 

SL0P0040 


END 

SL0P0041 
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$IBFTC I1AP 

SUBROUTINE I 1AP1 (X»Y, ARGX, ARGY, IMX) 

SUBROUTINE FOR THE PARABOLIC INTERPOLATILN OF A FUNCTION OF ONE 

ARGUMENT 

DIMENSION ARGX(1),ARGY(1) 

DIMENSION DI (2 ) 

IF (lMX-215,7,6 

5 Y=ARGY (l ) 

GO TO 95 

C LINEAR EXTRAPOLATIONS ARE PERFORMED 

6 IF (X-ARGX { 1) )7 »7»8 

7 I E=1 
NE=2 

GO TO 10 

8 IF (X-ARGX ( IMX I 115*9*9 

9 I E=I MX 
NE=I MX-1 

10 Y=ARGY ( IE) + ( ARGY(NE)-ARGYC IE) )*( X-ARGX ( I E) )/( ARGX(NE)-ARGXUE) ) 
GO TO 95 
15 IM1=I MX-1 
IREF=2 

DI (2 ) = ABS ( ARGX (2 )— X ) 

DO 30 1=2, IM1 

DI (1) = ABS (ARGX (I )-X) 

IF(Dl ( 1 ) -DI (2 ) )20, 30, 30 
20 IREF= I 

DI (2) =01 ( 1 ) 

30 CONTINUE 
I=IREF 

43 X1=ARGX ( 1+1) 

X2=ARGX ( . ) 

X3=ARGX ( 1-1) 

Y1=ARGY ( I+1J 
Y2=ARGY(I) 

Y3=ARGY ( I — 1 > 

70 A= ( ( Y1-Y2 1 *(X2-X3)-(Y2-Y3) MX1-X2 ) )/( (X1**2—X2**2)*CX2“X3> 

1 -(X2**2-X3**2)*(X1-X2)) 

B=((Y2-Y3)-A*(X2**2-X3**2))/(X2-X3) 

Y=A*( X**2-X2**2)+B*(X-X2)^Y2 
95 RETURN 
END 


I 1AP0CO1 
I 1AP0002 
I 1AP0C03 
I 1AP0004 
I1AP0005 
1 1 AP0006 
I 1AP0007 
I1AP0008 
I 1 AP0009 
I 1AP0010 
I 1AP0011 
I 1AP0012 
I 1AP0013 
I 1AP0014 
I 1AP0015 
I 1AP0016 
I 1AP0017 
I 1AP0018 
I 1AP0019 
I 1AP0020 
I 1AP0021 
I 1AP0022 
I 1AP0023 
I 1AP0024 
I 1AP0025 
t 1AP0026 
I 1AP0027 
I 1AP0C28 
I 1AP0029 
1 1 AP0030 
I 1AP0031 
I 1AP0C32 
I 1AP0033 
I 1AP0C34 
I 1AP0035 
I 1AP0036 
I 1AP0037 
I 1AP0038 
I 1AP0039 
I 1AP0040 
I 1AP0041 
I 1AP0042 



82 


SUBROUTINE INTPL8 (XA,ZA,TABX,TABY, TABZ,NC, NY, NZ» ANS) 

COMMON/ 81 2678/ JTAPE,IPRINT 

DIMENSION TABX(1)«TABY(1) * TABZ ( 1 ) ,NRX( 8) ,NPY( 8 ) » YY( 8) * TABXN(8) • 
1TABYNI8) ,TABZN(8) 

I N=1 

CALL UNS (NC,IA,IDX,IDZ,IMS) 

IF (NZ-1) 5.5,10 

5 IF (XA. GT«TABX( NZ ) .OR.XA.LT .TABXt 1 ) ) IN-IN+2 
IFIXA.GT. TABX(NZl) XA-TABX(NZ) 

IF (XA. LT.TABXC 1) ) XA*TABX(1) 

CALL DISSERCXA.TABX. i»NY, IDX.NN) 

NNN= I DX+1 
NNM=NN-1 

00 7 K=1 » NNN 
NNMK=NNM+K 
TABXN(K)=TABX(NNMK) 

7 TA8YN ( K)=T ABY ( NNMK) 

CALL LAGRAN (XA.TABXN. TABYN.NNN, ANSI 
GO TO 615 
10 ZARG=Z A 
IPlXaICX+1 
IP1Z=ICZ+1 

15 IF(ZARG.GT .TABZ( NZ ) .OR.ZARG.LT .TABZ( 1 )) IN«IN+1 
IFtZARG.GT.TABZ(NZ) ) ZARG*TABZ(NZ ) 

IF(ZARG.LT .TABZt 1) ) 2ARG-TABZC1) 

25 CALL DISSER (ZARG,TABZ,l,NZ, IDZ.NPZ) 

NX=NY/KZ 

NPZL*NPZ+IDZ 

1 = 1 

IF (IMS) 30,30,40 
30 CALL DISSER (XA, TABX, 1, NX, IDX.NPX ) 

DO 35 JJ=NPZ,NPZL 
NPY( I ) = ( JJ-1 )*NX+NPX 
NRX( I ) =NPX 
35 1=1+1 
GOTO 5C 

40 DO 45 JJ=NPZ,NPZL 
IS=( JJ-1MNX+1 

CALL DISSER (XA.TABX, IS, NX, IDX.NPX) 

NPY( I ) =NPX 
NRX( I ) =NPX 
45 1=1+1 
50 INN=0 

00 55 I=1,IP1Z 
XH=X A 

NLOC =NRX ( I ) -1 

NL0CY=NPY(I)-1 

DO 53 K=1 , IP1X 

NLOCK=NLOC+K 

NLOCYK=NLCCY+K 

TABXN(K)=TABX(NLOCK) 

53 TABYN(K)=TABY(NLOCYK) 

IF(XA.GT.T ABX ( NLOCK ) .OR.XA.LT *TABX( NLOC+1) ) INN-INN+1 
IF (XA.GT«TABX( NLOCK) ) XH*T ABX < NLOCK ) 

IFtXA.LT.T ABX( NLOC+1) ) XH«TABX(NL0C+1 ) 

CALL LAGRAN(XH,TABXN,TABYN, IP1X, AN) 

55 YY(I)*AN 

IF (I NN.GT.O) IN-IN+2 

NPZN*NPZ-1 

DO 60 K»1 , IP1Z 


I NT80C01 
INT80002 
INT80C03 
I NT80004 
I NT80005 
I NT80C06 
I NT80007 
I NT80C08 
IKT80C09 
I NT80010 
I NT80011 
I NT80C12 
I NT80013 
INT80014 
I NT80015 
I NT80016 
I NT80017 
INT80018 
I NT80019 
INT80020 
INT80C21 
INT80C*>2 
I KT80023 
I NT80024 
INT80025 
I KT80026 
I NT80027 
I NT80C28 
I NT80029 
I NT80C30 
I NT80031 
I NT80C32 
I NT80C33 
I NT80034 
I KT80C35 
I NT80036 
I NT80037 
INT80038 
I NT80039 
I NT80040 
IKT80041 
I NT80042 
I NT80043 
I NT80C44 
I NT80045 
I NT80046 
I NT80047 
I NT80048 
I NT80049 
I NT80050 
I NT80051 
I NT80052 
INT80053 
I NT80054 
I NT80055 
I NT80056 
INT80057 
I NT80058 
I NT8Q059 
INT80060 



183 


NPZNK=NPZN+K 
60 TABZN(K)=TABZ( NPZNK) 

CALL LAGRAN (Z ARG.TABZN, YY, IP1Z* ANSI 
615 IF(IN.EG.l) GO TO 70 
WRITE (JTAPE, 4) 

GO TO (70,620,621,622), IN 

620 WRITE ( JTAPE* 1 ) 

RETURN 

621 WRI TE ( JTAPE* 2) 

RETURN 

622 WRITE (JTAPE, 3) 

1 FORMAT (33H DATA EXTRAPOLATED IN Z DIRECTION) 

2 FORMAT (33H DATA EXTRAPOLATED IN X DIRECTION) 

3 FORMAT (37H DATA EXTRAPOLATED IN BOTH DIRECTIONS) 

4 FORMAT (1X//////18H *** ERROR MESSAGE) 

70 RETURN 

END 

SIBFTC UN 

SUBROUTINE UNS ( IC, I A, IDX, IDZ, IMS ) 

IF (IC) 5,5,10 

5 I MS=1 
NC=-IC 
GOTO 15 

10 IMS=0 
NC=I C 

15 IF (NC-100) 20,25,25 

20 I A=0 
GOTO 30 
25 I A=1 

NC=NC-100 
30 I DX=NC/10 

IDZ=NC-IDX«10 

RETURN 

END 

SIBFTC LAGR 

SUBROUTINE LAGRAN (XA,X,Y,N, ANS) 

DIMENSION X(l),Ytl) 

SUM=0.0 
DC 3 1=1, N 
PROD= Y ( I ) 

DC 2 J=1,N 
A=X( I )-X( J) 

IF (A) 1,2,1 

1 B=(XA-X(J) )/A 
PRCD=PR0D*8 

2 CONTINUE 

3 SUM=SUM>PR0J 
ANS=SUM 
RETURN 

END 

SIBFTC DISS 

SUBROUTINE DISSER (XA, TAB, I, NX, IO,NPX ) 

DIMENSION TAB(1 ) 

NPT=I 0+1 
NPB=NPT/2 
NPU*NPT-NPB 
IF (NX-NPT) 10,5,10 
5 NPX* I 
RETURN 

10 NLOW*I+NPB 


I NT80C61 
INT80062 
I NT80063 
I NT80064 
I NT80065 
I NT80C66 
I NT80067 
I NT80068 
I NT80069 
I NT80070 
INT60071 
I NT80072 
I NT80073 
INT80C74 
I NT80075 
I NT80C76 
INT80077 

I NT80C78 
I NT80079 
I NT80080 
I NT80081 
I NT80082 
I NT80083 
I NT80084 
I NT80085 
I NT80086 
I NT80C87 
I NT80088 
I KT80089 
I NT80090 
I NT80091 
I NT80092 
I NT80093 

I NT80094 
I NT80095 
I NT80096 
INT80097 
I NT80098 
I NT80099 
I NT80100 
I NT80101 
I NT80102 
INT80103 
I NT80104 
I NT80105 
I NT80106 
I NT80107 
I NT80108 

I NT80109 
INT80110 
INT80J11 
IKT80112 
I NT80113 
INT80114 
INT80115 
I NT80116 
I NT80117 
I NT60118 
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NUPP* I +NX- (NPU+1 ) 

00 15 I I*NL0W» NUPP 
NL0C= 1 1 

IF (TAF(II)-XA) l-».'20t 20 
15 CONTINUE 

NPX=NIJPP-NPB-H 

RETURN 

20 Nl=NLCC-NPB 
NU=NL*ID 
DO 25 JJaNL.NU 
NDIS= JJ 

IF (TAe(JJ)-TABC JJ-HU 25 t 30 f 25 
25 CONTINUE 
NPX=NL 
RETURN 

30 IF (TAE(NDIS)-XA) 40,35,35 
35 NPX=N01S-I0 
RETURN 

40 NPX=NDIS*1 
RETURN 
END 


I NT80119 
INT80120 
I NT80121 
Z NT80122 
I NT80123 
I KT80124 
INT80125 
I KT80126 
INT8012? 
INT80128 
I NT80129 
I NT80130 
I NT80131 
I NT8C132 
INT80133 
I NT80134 
INT80135 
I NT80136 
I NT80137 
{T80138 
1NT80139 



noon 



SIBFTC AlRF LIST 

SUBROUTINE AIRFLO 

C «< r t 

c 

C SUBROUTINE a i r f l c 

c 

c this subroutine calculates airflow conditions in the 

C FLAME TUBE ANO ANNULUS OF A COMBUSTION CHAMBER* 

C 

c FOUR SUBROUTINES ARE CALLED BY AIRFLO 

C l. EOUAN - SOLUTICN TO ANNULUS EOUATIONS 

C 2. DISJET - JET PARAMETERS RELATING TO FLOW 

C THROUGH HOLES tN THE FLAME TUBE 

C 3. EQUFT - SOLUTION TO FLAME TUBE EOUATIONS 

C A. PrTEMP - CALCULATION OF PRIMARY ZONE TEMP. 

C 

C ONE SUBROUTINE CALLS AIRFLO 

C l. CLARE 

C 

C CCMMOM STATEMENTS 

THIS SUBROUTINE USES COMMON BLOCKS WHOSE NAMES CONTAIN THE NUMBER 6 
VI 1 - B6, B 16 y B67 y 068, BI26, 6167, B168t B678, B1678, BI2678 
ALSO BA (SHAREO WITH 6MPCTS AND TU8CTS) 

BZERO IS A CUMMY BLOCK, USED INSTEAO OF A OIMENSICN STATEMENT 


A IRFGQ10 
AIRF0020 
AIRF0030 
A IRFOOAO 
A IRF0050 
A IRF0060 
AIRF0070 
AIRF0080 
A IRFOC90 
AIRF0100 
A1RF0H0 
AIRFQ120 
A IRF 0130 
A IRFOIAO 
AlRFOl 50 
AIRF016O 
AIRF0170 
AIRF0180 
AIRF0190 
A I RF0200 
AIRF0210 
AIRF0220 
AIRF0230 
AIRF02A0 
AIRF0250 


CCMMUN/B4/DPREF AIRF0260 

COMMON/ 8 16/ COS (20 , l'i ) * DPHS ( 20 , l 5 ) , FLCV » IH, NABM45) AIRF0270 

1 ,NSP (20 ,GXIS(20»l5),KA*K6,FIT»FIPHI»FIPSItFIA#FITAU»FID*F IE NTH AIRF0280 

2, SHAFST , FIFTPR, LCMFL.LCANUAIRF0290 

3 , LCANL,LCFTEL,LCFTL,LCPRTL,BETA,ASW,FFIZ(45),AHD0HE,NSC00P<20) A1RF03C0 

4, LCPTAL,PAFRZ,NHTU(50),AF2 3AC3),AF23B(3)»XAF23A(3),XAF23BC3) AIRF031C 

COMMON/B68/AFANA(A5 I, AFANB (45) , AFFTI A5 I ,AFPRZ,C2A( A5 I »CZB (45) AIRF0320 

2,AFSYP,FARFT(45)» OENANA I A5 ), OENANBI A5) AIRF0330 

3,SAFTRA(A5) ,SAfTRB(A 5), QTR A(45) tQTRB (45),REAAN( A3 1 , REBAN I AS 1 AIRF034G 

4,TWA(45),TWB(45) AIRF0350 

COMMON/ 8166/ A AN A (45 I ,AANB( <*5 )»CCA( 45 I ,CCB C 45) t FFCR»NLA$T AIRF036O 

1 , KANHET,LANHET ,PERCC .THIKF T AIRF0370 

2 , DANA (45) , DAN 8(45) AIRF0380 

CCMM0N/B67/0ENFT(45),EK17, EKl9,EK2Ct EKU AIRF0390 

1 ,C(50),GXIA(50),K,WUJ(50) AIRF0400 

C0MMCN/R167/GASC,GRAVC,GJCULEi IHJI50) ,XH(50) ,NH AIRF041C 

CCMMCN/B678/PREFT (45) ,pRcANA(45 I , PRT: ANSI 45 1, TFT( 45 ) *TANANA(45) ,TANA IRF0420 
1ANB(45),AFJ1(50),UFT»45) AIRF0430 

CCMM0N/B1678/NSHCP*XCP(45) ,AFT(45»,PI AIRF0440 

1, NHH(50),KJSN(45,6),HAU(50),CFTA(45»,CFTB(45),NABI5CI,NCOOEA(45» AIRF0450 

2, NCC0EB(45),T2 AIRF0460 

CCMM0N/B12678/ JTAPE, IPR INT AIRF0470 

CCMMCN/B126/AF2,TAN1A,TAN1B,PANIA,PAN1B AIRF0480 

l , AFA, AFB »PREDM ,STAGT t IBL# STPREF ,PNTRA,PNTRB, OPHSNT ,DOMLOS AIRF0490 

COMMON/Bb/PRE AN1, PREAN2 ,OENANl, DENAN2, TAN1,T AN2;AANi, AAN2, AFAN1, AIRF0500 

1AFAN2 ,UANl ,UAN2,ZA JM (45 ),ZMH(45> , ZZCP , Kl , K 11 , J ,K $H, LANB( 45» , AIRF<}510 

2FARL,F AR, ZSTOC» AFFTI , AFFTT l,TFTl#TFT2*HRRAT6, AIRF0520 

3ZMJUJ(45),ZMJET(45),CC,GXI,DPH1, PREFT1 ,PREFT2, AIRF0530 

4DENFTl,DENFT2,AFTl P AFT2,AFFT2»UFTl,UFT2,FARFTl t AIRF0540 

5FARFT2 ,ENTHAL,LCMF,LCAN I ,LCAN,LCFT£,LCFT*K7»K1 3*K12* AIRF055C 

6AFSYPA# AFSYPB,AFSY IA? AFSVI B.LCPrT* LCPTA AIRF0540 

7,C2 (455, U ANA (45 ) * ZMHAf 2 ) ♦GXIA.CXIB AIRF0570 

8 i*D PH 1 50) ,WCD (50) » WFFIZC45) ,OPAFSt 0PBFS*0PAE5*0PBES AIRFOSBO 

9,RC(50) , A, B, 0, E,K30 , K4J , K50,K60 A IRF 0540 



,....* 

CCMMCN/B5867/XFSA.XFSB 
C0MMCN/B126E/AF1, AF3,AF4,AFS,N,NSH,KK1 
CCMMUN/BZER0/CFFT(50) ,FRICFA(45) , FRlCFBUS ), HAW ( 30 ) , AFJZ(SC), 
IDUM(360) 

CCMM0N/eUNIK/0UMAe(45),DUM8El45) 

CCMM0N/B1260/ AFCL,AFCU,AFSL, AFSU 
DIMENSION DOOM! A ) »C (9 ) 


* * * * 

AIRF0600 
AIRF061C 
AIRFC62C ) 
AIRF0630 
AIRF06A0 
AIRF065* 
AIRF066C 
AIRF0670 
AIRF068C 
A I RF069t 

FORMAT (BHOREACH6DI3) AIRFC7C0 

FORMAT! /////49H0 AERQDYNAMI C PARAMETERS AT EACH CALCULATION POlNT/l AI RF07l^ 
l XA fl ( IH- ) /6H0A X I AL6X23HT OT AL TOTAL PR£ SSURE7X1 5HSTAT1C PRE SSURE6AI RF072. 

2X55HBULK VELOCITY MACH NUMBER ACCUMULATED PRESSLRE/I8H P0AIRFO73 U 

3SITION TgMPER2(8X4HPSIA9X), AXlOHFT PER SEC25X 18HLOSS IN ANNULI AIRF07A0 
4PSI/5H FRCM7X6H-ATURE/14H COMPRESSOR IN6X2I8H ANNULI 5X5HFLAME3 X) ,AI RF075< 
52I18H ANNULI FLAME ) f 7H DUE TC6X6HDUE TQ/17H DISCHARGE FIAME?AI RFC76U 
6 ( 16 XSHTUB E ) ,2( IAXAHTUBE! »2AH FRICTION AND EXPANSICN/lftH INCHES AIRF0770 
7 TUBE2I15H INNER OUTER6X ) , 2 ( 3X1 1H INNER OUTERAX) ,2X13HHEAT A0DAIRF078' 
8ITI0N/I2X5HDEG F79X2H2H INNER OUTER )/ 12X6HSTAT IC/12X7HTEMP IN/12XAIRF079* 
97HANNULUS/12X5HCEG F/9X HH INNER OUTER//! AIRF0795 

♦#INCLUCE CARDS AIRF0795 ANC 0805 ♦♦ AIRF080^ 

21 FORMAT (58H0C0MBUSTCR TOTAL-PRESSURE LOSS COEFFT FOR INNER ANNULUS AIRF080 
l «F7.A,A1H (RELATIVE TO REFERENCE DYNAMIC PRESSLRE )/58H0CCM8UST0R AIRF081U 
2 TOTAL-PRESSURE LOSS COEFFT FOR OUTER ANNULUS «F7.4/66HOTOTAL-PRESA1 RF0820 

3SURE LOSS FACTI3R FOR COMBINED DIFFUSER AND COMBUSTOR «F7.A»A3H (RAIRF083 
AELATIVE TO COMPRESSOR DELIVERY PRESSURE)/5 8HCCOMBU$TOR TOTAL-PRESSA IRFQ8Av. 


C FORMAT STATEMENTS 


I 

20 


SURE 

6URE 

7URE 

SURE 

9DUE 


LCSS 

LOSS 

LCSS 

LOSS 


FACTOR 

FACTOR 

FACTOR 

FACTOR 


FOP 

for 

FOR 

FOR 

AND 


INNER 

OUTER 

INNER 

OUTER 

HFAT 


38 


TO FRICTION 
XSSURE-LCSS FACTOR CUE TO 
XIUS «F7.A) 

** THERE ARE NO 
FCRMAT (///// 2 OHO A I R MASS 


ANNULUS *F7 . A/5 6HCC0MBUST0R TCTAL-PRESS A IRF0850 
ANNULUS «F7.A/58H0EXPANSI0N TOTAL-PRESSA IRF086 
ANNULUS -F7.A/58H0EXPANSICN TqTAL-PRESSA I RF087 I 
ANNULUS “F7.A/76HCPRESSURE-LOSS FACTOR AIRF0880 
ADDITION FOR INNER ANNULLS *F 7. 4/76H0PRE A IRF089" 
FRICTION AND HEAT A0D1T10N FCR CLTER ANNUAIRF090 

AIRF091U 

CAROS AIRF 0930, 0940, 0950 «C960 ** AIRF0920 

FLOW SPL I T/ iX 19( 1H- ! /58HCFRACTI CN OF INLEAIRF097 


67 FORMAT(lXF13.l,F7.l) 


IT AIR PASSING THROUGH SNOUT ANC/OR DOME "F8.5/A9H FRACTION OF INLEAIRF098u 
2T AIR PASSING INTO INNER ANNULUS8X1H-F8. 5/49H FRACTION OF INLET AIAIRF0990 
3R PASSING INTO OUTER ANNULUS8X IH»F8. 5 ) AIRF100 

42 FCRi3AT(lXFB.3,F9.1,t>F7.2,3F6.1,3F6.3,4F6.2) AIRF1C1 

AIRF1020 

** THERE ARE NO CAROS AIRF 1040 THROUGH 1120 * AIRF103' 

PROGRAMME STOPPED IN SUBROUTINE AIRFL0.,/31H LOOP COUNTAIRFiU 
EXCEEDED. ,/3 IH MAX CALL FOR *EQUAN+ EXCEEDED.) AIRF114C 

PROGRAMME STOPPEC IN SUBROUTINE AIRFL0.,/31H LOOP COLNTAl RF1150 
EXCEEDED., /31H MAX CALL FOR *EQUFT* EXCEEDED.) AIRF1U 

IN SUBRCUTINE AIR FLO THE MAX IMLM NUMBER CF ITERATIONS OAIRFllTu 
FLOW SPLIT WAS EXCEEDED.) AIRF1180 


1000 FCRMAT (40H 
IE R *LCANL* 

1001 FORMAT (4 OH 
IE P *LCFTL* 

1002 FORMAT (90H 
IN THE AIR 


1003 FCRMAT ( 59H INCREASE ITERATION CYCLE LIMIT ♦LCANIL* CR TOLERANCE 9FAIRF119 

HD*) AJRF12C 

1004 FORMAT (88H THE COMeUSTOR IS BADLY DESIGNEC - NEGATIVE PRESSURE 0ROAIRF1210 
IP IS OCCURRING ACROSS THE H0LES./60H TO REMEOY - 1. IF ANNULUS VELA IRF 122 ' 
20CI TIES GREATER THAN 300 FPS, OPEN UP THE ANNULUS./ 13X3 1H2. INCREAAIRF123 j 
3SE SIZE OF WALL HOLES./ 13X25H3. REDUCE COME HOLE AREW13X35H6. USAIRF1240 


4E MORE SCOOPS OVER WALL HOLES.) 


1005 F CRMAT ( 54H AIR FLOW 
3000 FCRMATUX,//////19H 

8761 FORMAT (1H03F11.3) 

8762 FORMAT (1H04 UO ) 

8763 FCRMAT(1H03U0, 10X6110) 


RESULTS FOR THE LAST 
*«* ERROR MESSAGE) 


ITERATION CYCLE FOLLOW.) 


AIRF1250 
AIRFIZf : 
AIRF127U 
AIWF1280 
AIRF12' ; 
A IRF13C1 


• • • 
8 76 A 

FORMAT (7H0AI RCCN3F9 .It 7F11.7* 110) 


AIRF1310 

8 765 

FORMAT ( 1H010F 11*3 ) 


A I RF1320 




A IRF 1330 

C 

AIR FLOW PROGRAM 


A IRF 1340 




AIRF1350 


GC TC 7 


A IRF 13 60 


ENTRY AIRl 


A IRF1370 


LD* IPR INT 


A IRF 1380 


LDD-0 


AIRF1390 


I FIKANHET.NE .0 IG0TC9999 


AIRF1400 




A IRF 14 10 

C 

CuAN f IT IES OBTAINED FROM SUBROUTINE 

HEAT, SET TO ZERO IF HEAT HAS 

A IRF 14 20 

C 

NOT BEEN CALLED 


AIRF1430 




AIRF1440 


DC9998K*!, NLAST 


A IRF1450 


C2A ( K )sO. 


AIRF1460 


C2B(K)=0. 


AIRF1470 i 


WFF I Z ( K' =0* 


AI RFL«»8Q 


REAAN(K)=l.E4 


AIRH490 


REBAN(K)=l.E4 


AIRF1500 


CTRA ( K 1*0.0 


AIRF1510 


QTRB(K )=0.0 


AI R FI 520 

9998 

CONTINUE 


A I RF 1530 

9999 

CONTINUE 


A IRF1540 


00 2012 J»i,NH 


AIRF1550 

2012 

AFJ1 < J)*0. 


AIRF1560 


I F ( IPRINT.NE.DG0TC8760 


AIRF1570 


WRITE ,8765)(HAU(J),XH(J> ,J«1,20) 


A IRF 1580 


Wfll TE (6,6/65 ) FLCV * BETA, ASW , AHOOME 


AIRF1590 


WRITE (6,8762) (NHH( J),NHTU( J) ,NA3(J), 

1HJU),J-1,20) 

AIRF1600 


WRITE (6, 8765) (FF I Z(K ) , CFTA (K ) , CFTBIK ) ,AANA(R) , AANB (K) ,CCA( K ) , CCB(KA I RF1 610 


l ) , DANA ( K) , DANB(K ) , AFT(K),K-1,26) 


A IRF 1620 


WRITE (6,8763) ( NA8X (K ) , NCOOEA(K ) ,NCOOEB(K ) , iKJSN < K, I ) , I-l, 6 ) ,K«1, 

26AIRF1630 


1) 


A I RF 1640 


WRITE (6,8765 ) 

UDPHSt IH, 16 ) * 1 4*1# 10) * 

AIRF1650 


1 

( COSI IH,I4),l4*l,10), 

A IRF 1660 


2 

(GXIS< IH.I41, 14-1,10) , 

AIRF1670 


3 1 H= 1 , 3 ) 


AIRF1680 


WRITE (6, 8763 )NLAST,NSHCP 


AIRF1690 

8760 

CCNTINUE 


AIRF1700 




AIRF1710 

C 

SETTING OF CONTROL PARAMETERS. 


AIRF1720 




AIRF1730 

7 

CONTINUE 


AIRF1740 


NST0P=0 


AIRF1750 


LCANI*0 


AIRF1760 


LCANJ *0 


AIRF1770 


FI TAV* FI TAU/2 . 


A IRF 1780 


OCCM (1 )*AFCU 


AIRF1790 


DC0M(2 )*AFCL 


AIRF1800 


D00M(3)«AFSL 


AIRF1810 


DCCM(4)«AFSU 


AIRF1820 




A IRF 1830 

C 

ITERATION LOOP COUNTERS SET TO ZERO 


AIRF1840 




AIRF1850 

97 

LCAN-0 


AIRF1860 


LCFT-0 


AIRF1870 




AI RF 1880 

C 

Kl»0 INNER ANNULUS. 


AIRF1890 

C 

Kl*i CUTER ANNULUS. 


AIRF1900 


o o on n n o o o o o o r> o 


* 


C 


C 


99 


C 


C 


168 

K2«0 ANNULUS EQUATIONS ONLY. 

K2*l ANNULUS AND FLAMETUfiE EQUATIONS. 

K3*0 FOR FIRST SECONDARY HOLE. 

K3*l FOR SECONCARY HOLE. 

K5*0 FOR ANNULUS A. 

K5*l FOR ANNULUS 8. 

K 10*0 FIRST TINE THROUGH EACH ANNULUS 

K20*0 FIRST TIME THROUGH EACH ANNULUS WITH FLAME TUBE EQUATIONS 
BEING SOLVED 

K I *0 

K2-0 

K3*0 

K5*0 

K10*0 

K20*0 

SE T jet parameters obtained in subroutine disjet to zero 

EK 16*0*0 
EK17-0.0 
EK19-0.0 
EK20-0.0 

PRESSURE LOSS OUE TO EXPANSION ANO FRICTIONAL EFFECTS IN ANNULI 
USED CNLY FCR PRINTING OUT RESULTS 

DPAEr-0.0 

DPAFS«0.0 

DPBFS*0.0 

OPBES-O.O 

INTEGERS USED IN SUBROUTINE DISJET TO FIX PRESSURE REVERSAL OR 
NEGATIVE AIR MASS FLOW IN THE ANNULI FOR THE WHOLE COMBUSTOR 

K30*0 

KA0*0 

K50*0 

K60*0 

CONSTANT IN SWIRLER ESSURE LOSS EQUATION 
ZZKSW* 1.3 

CLEARING SUMMA) ON LOCATIONS. 

DO 99 K*l,NLAST 
ZMJET (K 1*0.0 
ZAJM(K)*0.0 
ZMJUJ(K)-0.0 
ZMH( K) *0.0 
CONTINUE 

AIR MASS FLOW IN PRIMARY ZONE 
AFPRZ*0.0 

AIR FLOW IN SNOUT* 

IF ( lcmfl.ne.i icalloiflw 


A I R F 19 10 
AIRF1920 
AIRF1930 
AIRF19A0 
AIRF1950 
AIRF1960 
AIRF1970 
AIRFI9B0 
A IRF 1990 
A I RF2000 
A I RF2010 
A IRF2C20 
AIRF2030 
At RF2040 
AIRF2050 
A IRF2060 
AIRF2070 
AIRF2C80 
AIRF2090 
A IRF2100 
AIRF2110 
AIRF2120 
A I RF2130 
AIRF21A0 
AIRF2150 
AIRF2160 
AIRF2170 
AIRF218C 
AIRF2190 
AIRF2200 
AIRF2210 
AIRF2220 
AIRF2230 
AIRF22A0 
AIRF225C 
A IRF 2260 
A IRF2270 
AIRF228C 
AIRF2290 
AIRF23CC 
AIRF2310 
AIRF2320 
AJ RF2330 
AIRF23A0 
A IRF2350 
AI RF 2360 
AIRF2370 
AIRF2380 
AIRF2390 
A IRF2A00 
AIRF2A10 
AIRF2A20 
AIRF2A30 
AIRF2AA0 
AIRF2A50 
AIRF2A60 
AIRF2A70 
AIRF2A80 
AIRF2A90 
AIRF2500 


♦ * * ....... 

IFUPRINT.NE. UG0T08759 AIRF2510 

WRITE (6, 8765 i AF2, TANIA, TANlB ,PAN1A,PAN 18, AFA ,AFB ,PREDN,STA6T, STPREAI RF2520 


l F » PNTRA , PNTRB ,DPHSNT tCOMLQS 

AIRF2530 

8 759 

CONTINUE 

AIRF2540 


I F ( IPRINT.GE. UCR.LCMFi.eC.lIWRlTEUTAPE.2C) 

AIRF2550 

AIRF2560 

C 

TEST CCNVERGENCE INCEX, SET IN SUBROUTINE DIFLN 

AIRF2570 

AIRF258C 


IF( IBU 100,900,100 

AIRF2590 

AIRF2600 

C 

AIR NASS FLOW THROUGH OOMt 

AIRF2610 

AIRF2620 

100 

AFS«AF2-AFA-AFB 

AIRF2630 


AFPRZ-AFS 

AIRF2640 

AIRF2650 

c 

PRESSURE IN THE PRIMARY ZONE, 

AIRF2660 
A IRF2670 


K 3 1 

AIRF2680 


J* K 

A IRF2690 


GC TC 124 

A ! RF2700 

145 

K10«l 

AIRF271C 


IF (Ki)90,90, 105 

AIRF2720 

AIRF2730 

C 

PRESSURE IN THE DONE 

AIRF2740 
A IRF2750 

90 

PREOM*PRECN-OCNLOS*OPHSNT 

AI RF 2760 


IF CPRECN.LE.O.INSTCP-l 

AIRF2770 


DENOM«PREON/ (GASC*STAGT I 

AIRF2 780 



A IRF2790 

C 

TEST K6*0 NO SWIRLER. 

AI RF 2800 

C 

K6* l SWIRLER, 

;,IRF2810 

AIRF2820 

80 

I F (K6 ) 102 , 102, 101 

A IRF2830 
AIRF2840 

C 

PRESSURE IN PRIMARY ZONE BEFORE COMBUSTION 

AIRF2850 
AI RF2860 

101 

PREFT (K)«PREON-0.5*AFS**2/ (GRAVC*DENDM*{0.6*AH0CME+ASW*AFT(K)/ 

AIRF2870 


1SCRT(ZZKSW*((AFT (K)/CGS( BETA ) » ♦♦2-ASW**i' )!>*♦ 2) 

AIRF2880 


IF(PREFT(K),LT,,2*PRE.0M IPREFTCK) *,2*FRE0M 

AIRF289C 


PREFT1-PREFT1K1 

AIRF290C 


GC TC 103 

AIRF291C 

102 

PREFT <KI*PREON-AFS**2/<OENDM*.36*AHOOME**2*GRA VC )*0.5 

A IRF292C 


I F (PREFT ( K )• LT.,2*PRE0M )PREFT(K)*,2*PRE0M 

AIRF293C 


PREFT1«PREFT(K) 

AIRF294C 
A I RF295C 

C 

INITIAL CONOIT ICNS FOR ANNULUS A. 

A IRF2 C 
A IRF2970 

103 

IF(NSHCP,EG,l) GOT 01 031 

AIRF298C 


0010301*1, NSHCP 

AIRF299C 

1030 

PREFT ( I I* PREFT ( 1 1 

AIRF3CCC 

1031 

AFAN1-AFA 

AIRF3010 


DENAN1*PAMA/(GASC*TAMA) 

AIRF302C 


TAN1-TAN1 A 

AIRF303C 


UAN1* AFAN1/ ( DEN AN l* A ANA ( K) I 

A IRF3C4C 


PREANl-PAMA 

AIRF305C 


K 1*0 

AIRF306C 


OENANA (1 ) *0ENAN1 

AIRF307< 


AFANA ( 1 )*AF AN1 

A IRF3C8( 


PREANAt 1)*PREAN1 

AI RF309( 


UANA ( I. )*UANl 

AlRF310( 


n o 



C 


c 


c 


c 


c 


TANANA(l)«TANl 
CO TO 105 

initial conditions for annulus b. 

10* AFAM * AFO 

0FN4NI«PAN1B/(GASC*TAN1B) 

T ANI»T ANIB 
K»l 

UAMI*AFANl/t DENAN1*AANB(K) I 

PREANI*PAN1B 

OFNANR ! 1)*0ENAN1 

TANANB (i)*TANl 

UANB ( l )=UANl 

PREAN0 ( l )*PREANl 

AFANBUI-AFANl 

K20=l 

KI«l 

J=K 

TEST FOR ANNULUS ANO FLAME-TUBE EQUATIONS* 

GO TO 12* 

851 K20=0 

DYNAMIC PRESSURE IN ANNULUS. 

105 DYPAN1=0«5*DENAN1*UAN1**2/GRAVC 
DPH1* l.OM PREAN1-PREFT 1 1/DYPAN1 

LCCP COUNTER INCEXEO ANO TESTEO FOR ANNULUS EQUATION SOLUTIONS* 
LCAN*LCAN+1 

I F ( LCANL-LCAN )*0* , *0*. *05 
*0* CONTINUE 

VIR ITE ( JTAPEy 3000 ) 

WRITE! JTAPE« 1000) 

RETURN 

TEST FCR INNER OR OUTER ANNULUS 
*05 IF(K1) 10 6 f 106*107 

SET ANNULUS AREAS ANO HEAT CONVECTION INNER ANNtLL'S 

106 AANl-AANA(K) 

AAN2*AANA( J) 

C2 ( K )=C2A! K) 

GC TO 108 

SET ANNULUS AREAS AND HEAT CONVECTION* OUTER ANNULUS 

107 AAN1*AANB(K) 

AAN2-AANB! J) 

C2(K)»C2B(K) 

108 CCNTINUE 


A IRF3 1 10 

A I RF 3 120 

AIRF3130 f 

A IRF3 l*C 

A IRF3150 

AIRF3160 , 

AIRF3170 

A I RF 3 180 

AIRF3190 

AIRF3200 

AIRF3210 

AIRF3220 

A IRF3230 

A IRF32A0 

AIRF3250 

AIRF3260 

AIRF3270^ 

AIRF3280 

AIRF3290 

AIRF33001 

AIRF3310 

AlRF3320 i 

AIPF3330 

AIRF334C 

A IRF3350 

AIRF3360 

AIRF337G 

AIRF3380 

AIRF339C 

AIRF3AOO 

AIRF3*10 

AIRF3*20 

AIRF3*30 

AIRF3AA0 

AIRF3*50 

AIRF3*60 

AIRF3*70 

A IRF3*80 

AIRF3*9C 

AIRF3500 

AIRF3510 

AIRF3520 

AIRF3530 

A IR F3540 

A IRF3550 

AIRF3560 

AIRF357C* 

AIRF3580 

AIRF3590 I 

AIRF36001 

AIRF361C 

AI RF3620 t 

AIRF3630 i 

AIRF36A0' 

AIRF3650. 

AIRF366O I 

AIRF3670 • 


test annulus air mass flow* if negative set annulus parameters anoairf36bo 

00 NOT CALL SUBROUTINE EQUAN AIRF3690] 

‘ AIRF3700 J 


on ooooo o n o o r> 


60 


53 


59 


56 


52 


70 i 
*5 


24 

6 

125 

126 
127 
28 

131 

132 

325 

133 


lF(AFANl)60t60 t 53 
PREAN2*PRE AN1 
DENAN2*0ENAN 1 
TAN2=TAM 
UAN2*0.0l 
CALL DISJET 

IF PRESSURE REVERSAL OCCURS OR AIR 
SUBROUTINE EQUAN 

I F (Z MH( K I-AFAN1 ) 59 »56.56 
IFIDPHl.LE.O.OIGO TO 56 
CALL ECUAN 
GC TO 52 

SET ANNULUS PARAMETERS 

AFAN2=AFAN1 
PREAN2*PREAN1 
T AN2*T AM 
UAN2-UAN1 
DENAN2=0EN AN 1 
K SH=K 

TEST FCR SECONDARY HOLES 
I F(KSH.EQ.NSHCP) GOTO 1325 


AIRF3710 
A1RF3720 
AIRF373C 
AIRF3740 
A IRF3750 
AIRF376C 
A IRF3770 

MASS FLOM IS NEGATIVE DO NOT CAAIRF378C 

A IRF3790 
AIRF3800 
AIRF381C 
AIRF3820 
AIRF3830 
AIRF3840 
A IRF3850 
AIRF3860 
A IRF 3870 
A IRF3880 
AIRF3890 
A I RF3900 
A IRF3910 
A IRF3920 
AI RF 3930 
AIRF3940 
AIRF395C 
AIRF3960 
AIRF3970 


K=J 


TEST IF ANNULUS ANC FLAME TUBE EQUATIONS ARE BEING SOLVED* 

IFCK2I124, 124,95 
J=K+ 1 
GC TO 134 

TEST FCR HCLE AT NEXT CALCULATION POINT. 

NA8X(K)=l HCLES ON INNER WALL ONLY. 

NABX (K)=2 HOLES ON OUTER WALL ONLY. 

NABX (K) = 3 HOLES ON BOTH WALLS. 

N ABX ( K)=4 NO HOLES. 

IF(NLAST-J+l)134,6,6 

I F ( J.EC.NSHCP .OR .NABX ( J+ 1 ) .LE.3 )GOTO 126 

J=J+1 

GO TO 124 

IF (NABXIJ+1 1-2)127, 127, 133 

IF(K1) 128,128,131 

I FINABXIJ41 )-l)132,133, 132 

IF(NABX(J+1)-1)132« 132, 133 

J=J+1 

GC TO 124 

K*KSH+1 

J=K 

J*J + 1 

IS THIS THE FIRST TIME ANNULUS EQUATIONS HAVE BEEN SOLVEO 
TOGETHER WITH FLAME TUBE EQUATIONS FOR THE CURRENT ANNULUS 

IF(K20)850, 850,851 


AIRF? r ;30 
AIRF3990 
A IRF 4000 
A IRF4C10 
AIRF4020 
AIRF4030 
A I RF 4040 
AIRF4C50 
AIRF4C60 
AIRF4070 
A IRF4080 
A IRF4C90 
AIRF4100 
AIRF4U0 
AIRF412C 
AIRF4130 
AIRF4140 
AIRF4150 
AIRF4160 
AIRF4170 
AI RF4180 
AIRF4190 
AIRF4200 
AIRF4210 
A IRF4220 
AIRF4230 
AIRF4240 
AIRF4250 
A IRF4260 
AIRF4270 
AIRF4280 
A IRF4290 
AIRF4300 



no on# 


19 ?. 

.1 ♦ 

IS THIS THE FIRST TIME ANNULUS EQUATIONS HAVE BEEN SOLVED 
CURRENT ANNULUS 

850 IF(K 10) 145*145*134 

STCRAGE 

TEST INNER OUTER ANNULUS* 

134 IF(K1)135«135»13T 

; STORAGE AND UPDATING OF INNER ANNULUS PARAMETER!* 

139 UANA(K)»UAN2 

PREANA («)■ PREAN2 

OENANA (K)*DENAN2 

TANANA < K )»TAN2 

AFANA(K)«AFAN2 

UAN1*UAN2 

PRtANl=» PRE AN2 

DENAN1-0ENAN2 

TAN1-TAK2 

AFAN1*AFAN2 

GX1A-GXI 

TEST IF ANNULUS ANO FLAMETUBE EQUATIONS ARE BEING SOLVED* 

IF (K2) 136* 136* 150 

TEST FCR SECONDARY HOLES* 

136 I F ( K SH-NSHCP 1105* 299 * 1 05 

: STORAGE OF JET PARAMETERS FOR SECONDARY HOLES 


> • < 

THE 


PQR 


AIRF4310 
A IRF432C 
A IRF4 330 
AIRF4340 
AIRF4350 
AIRF4360 
A IRF4370 
AIRF4380 
AIRF4390 
AIRF4400 
AIRF4410 
AIRF4420 
AIRF4430 
AIRF444C 
AIRF4450 
AIRF4460 
AIRF44 70 
A IRF4480 
AIRF4490 
AIRF4500 
A IRF4510 
AIRF452C 
A tRF4530 
AIRF454C 
AIRF4550 
A1RF4560 
AIRF4570 
AIRF4580 
AIRF4590 
AIRF 46 OO 
AIRF4610 
AIRF4620 
AIRF4630 
AIRF4640 


299 ZMHAS«ZMH(KSH) 

A-ZMJFT(NSHCP) 

B-2HJUJI NSHCP) 

E-ZAJMINSHCP) 

0*ZMH(NSHCP ) 

00 55 I »l,NSHCP 

C SET JET PARAMETERS FOR SECONDARY HOLES TO XERO 

ZPJET ( I)*6*0 

zajmid-o.o 

ZMJUjm*0*0 

zPHin*o*o 

55 CGNTINUE 

C TEST FOR SPECIFICATION OF FION SPLIT* 

IP (1(4)94*94* 141 

C STORAGE ANO UP0AT1N6 OF OUTER ANNULUS PARAMETERS* 

137 UANB(K)«UANX 

PREANB(K)«PREAN2 
OENANE (K »aOENAN2 
TANANB(K)-TAN2 
AFAMSIK)«APANX 


AIRF4650 
AIRF4660 
AIRF4670 
AIRF4680 
AIRF4690 
AIRF4700 
AIRF4710 
AIRF4720 
AIRF4730 
AIRF4740 
AIRF4750 
AIRF4 760 
AIRF477C 
AIRF4780 
AIRF4790 
AIRF4800 
AIRP4S10 
AIRF4II0 
AIRP4II0 
AIRF4840 
AIRF4850 
A IRF4860 
AIRF4870 
AIRF4BB0 
AIRP4I90 
AIRP4900 



r> o 


♦ ... *, 4 > * 

LAN1=UAN2 
PRE AN1=PREAN2 
DENAN1=DENAN2 
TAN1=TAN2 
AF AN1* AFAN2 
GX1C*GXI 

C TEST IF ANNULUS ANC FLAMETUBE EQUATIONS ARE BEING SOLVED. 

IF(K2)1 38 ,138,151 
C TEST FOR SECONDARY HOLES. 

1 38 IFIKSH-NSHCP ) 105, 139,105 

C TEST FOR SPECIFICATION OF FLOW SPLIT 

139 IF (K4)147,147,142 

SPECIFICATION OF FLOW SPLIT. 

FLCW SPLIT FOR A SECONDARY HOLES. 

141 AFSYPA=ZMHAS*SHAFST 
AFSYIA=ZMHAS-AFSYPA 
AFPRZ= AFPRZ+AFSYPA 
GC TO 104 

C FLOW SPLIT FOR E SECONDARY HOLES. 

142 AFSYPG=ZHHIKSH)*SHAFST 
AFSYI B=ZMH( KSH)-AFSYPB 

afprz=afprz+afsypb 

CALL PRTERP 
GC TO 151 

C SET FLOW SPLIT *0.5 FIRST ITERATION A ANNULUS 
94 AFSYI A*0.5*ZMHAS 

AFSYPA = AFSY I A 
AFPRZ=AFPRZ+AFSYPA 
ZMHA ( 1 ) = ZHHAS 
GO TO 104 

C SET FLCW SPLIT *0.5 FIRST ITERATION B ANNULUS 

147 AFSY IB=0.5*ZMH ( K-l ) 

AFSYPE=AFSYIB 
AFPRZ=AFPRZ*AFSYPB 
ZPHA ( 2 )*ZHH I KSH) 

call prtemp 

GC TO 151 

C SCLUTION OF FLARE TUBE EQUATIONS. 

150 K2=l 
K 1*1 
J*J~i 
K= K- 1 

C SET ANNULUS PARAMETERS FOR USE IN SUBROUTINE EQUAN 


.'*! 

A I RF4910 
AIRF4920 
A IRF4930 
AIRF4940 
AIRF«950 
A I R F4 96 C 
A IRF4970 
A lR F4980 
AIRF4990 
AIRF50C0 
AIRF5C10 
AIRF5020 
A I RF5030 
AIRF504C 
AIRF5050 
AIRF5060 
AIRF5070 
AIRF5080 
AIRF509C 
AIRF5100 
A1RF5110 
A I RF5120 
AIRF5130 
AIRF514C 
AIRF5150 
A I RF5160 
A I RF5170 
AIRF518C 
AIRF5190 
AIRF5200 
AIRF5210 
AIRF5220 
AIRF5230 
AIRF5240 
A I RF 5250 
A IRF5260 
A IRF5270 
A I RF5280 
A I RF 5290 
A IRF5300 
AIRF5310 
A I RF5320 
A I RF 5330 
A IRF5340 
AIRF5350 
AIRF5360 
AIRF53 70 
AIRF5380 
AIRF5390 
AIRF5400 
A I R F 54 1 0 
AIRF5420 
AIRF5430 
AIRF5440 
A I RF5450 
A I RF5460 
A IRF5470 
AIRF5480 
AIRF5490 
AIRF5500 



i 




UANl«UANB (K) 

PREANl«PREANB(K) 

CENANl-DENANB(K) 

TAN1»TANANB(K> 

AFANl*AFANB(K) 

C SECONDARY HOLE AIR MASS FLOW PASSING INTO PRIMARY ZONE 
AFSYP*AFSYPA+AFSYPB 

C STORAGE OF JET PARAMETERS FOR INNER ANNULUS 

A*ZMJET C K > 

B=ZHJUJ(K) 

C = ZMH f K > 

E*ZAJM(K) 

C SET JET PARAMETERS TO ZERO 
ZPJFT(K)*0.C 


AIRF55IO 

AI RF55T 1 

A1RF55’! j 

A1RFS5A0 

AIRF5550 

AIRF55tJ| 

AIRF55VJ 

AIRF558C 

AIkF55Sii 

AIRFSfcCj,* 

AIRF561C 

AIRF56?T 

AIRF56* 

AIRF564C 

AIRF56M 

AIRF566 | 

AlRF56Tv 

A I RF5680 

AIRF56* 'k 

A IRF57 C 1 

AI RF5710 


151 


408 


409 

908 

907 


ZMJUJ(K)*0. 

ZPH(KI«0. 

ZAJM(K)«0.0 
GO TO 105 
K 1»0 
K2= 1 
K*K-1 
J = J-1 

SET ITERATION LOOP COUNTER TO ZERO 
LCFTE*0 

L COI* COUNTER INCEXEC ANO TESTED FOR NO. FLAME Tl'BE EQUATION SQL. 
ICFT*LCFT*1 

I F(LCFTL-LCFT >408,408, 409 
CONTINUE 

WRITE ( JTAPE, 3000) 

WRITE! JTAPEtl 001) 

RETURN 
CALL EQUFT 

IF(K-NSHCP >904,908,908 
IF(LD)906, 906,907 
IF(K.EC.NSHCPU«i 

SPECIFIC HEAT AT CONSTANT PRESSURE AS A FUNCTION OF FUEL-AIR 


9070 ZZCP»(. 21214 . I03*EARFT{K >) 4 ( 5 . 06+22. 6*FARFT(K))*1.0E-5*TF7(K)4 
1 (-13. 1-29. 6*FARFT( K > )*l.0E-9*TFT(K )**2+{ 2.104. 35*FARFT(K>) 
2*i.0E-l2*TFTCK)**3 

: TCTAL PRESSURE IN ANNULUS ANO FLAME TU8E 

PSA»PREANA(K) ♦( (TANA NA(K 1+0.5/ <0 . 24*GjCULE*GRA VC ) 

1+UANA(K) **2)/T ANANA(K) )**3 .5 
PSB«PREANe(K)*((TANANB(K)40.5/(0.24*GJOULE*GRAVC> 
l*UANB(K)A*2)/TANANe(K» )*43.5 
PSF»PREFT(K)+0.5*0ENFT(KI*UFT(K)**2/GRAVC 


AIRF572 
AIRF573 
AIRF5740 
AIRF575" 
AIRF576 I 
A I RF 5 7 
AIRF578C 
AIRF57S | 
AIRF58C ; 
AIRF5810 
AtRF582' 
AIRF583 1 
AIRF5840 
A IRF585H 
AIRF586 1 
AlRF58?v 
AIRF5880 
AIRF589 j 
AIRF590 ! 
A IRF5910 
A IRF592" 
AIRF593 
AIRF594L 
AIRF595A 
AIRF596 ! 
AIRF597V 
RATI0AIRF598C 
AIRF599 
AIRF600 
A IRF6010 
AIRF602 
AIRF6C3 
AIRF6040 
AIRF605Q, 
AIRF606 ] 
A IRF607u 
AIRF6080 
A1RF609 
AIRF6X0 


J 




J* 5 „ 

c 

MACH NUMBER IN ANNUUS AND FLAME TUBE 

AIRF6110 

AIRF6120 


AA*UAKA(K)/( ( SQRT ( l. A0*TAN ANAl K )*GASC*GRAVC) ) ) 

AIRF6130 

AIRF614C 


AB*UANB(K)/(SCRT( l . A0*T ANANB 1 K ) *CA SC *GRAVC)> 

AIRF6150 


AF-UFTIK)/ISQPTtl.B3*TFT|K)*CASC AGRAVC) » 

AIRF6160 

c 

TCTAL TEMPERATURE IN FLAME TUBE 

A I RF 61 70 
AIRF6180 


TFTT0T«TFT(K)*0.5*UFT(K )**2/(GRAVC*ZZCP*GJCULE)-A59.7 

AIRF6190 

AIRF6200 

c 

UNITS CONVERSION 

A IRF6210 
AIRF6220 

c 

** INCLUCE CARO'S AIRF6233 AND 6237 *6 

A IRF6230 


TANANA(k)*TAnANA(K)«A59.7 

AIRF6233 


TANANe (K )*TANANE(K J-459* 7 

AIRF6237 


XCP<K)»XCPIK)*12. 

A IRF6Z40 


PREANA(K)«PREANA(K)/1AA. 

AIRF6250 


PREANB <K)*PREANB(KI/ 144* 

AIRF6260 


PREFTIK)*PREFT!K)/144. 

AIRF6270 


PSA*PSA/144. 

A IRF6280 


PSB-PSB/144. 

A IRF6290 


PSF»PSF/144. 

AIRF6300 


IFIK.NE.UGCTC 980 

AIRF6310 


PS Al N*PSA 

A IRF6320 


PSBIN-PSB 

A IRF6330 

980 

DPARS*PSAI N-PSA-DUMAEIK) 

AIRF634C 


0PBRS«PSBIN-PS8-DUM8E(K ) 

AIRF6350 


WRITE! JTAPE, A2 1 XCP(K ), T FTTOT, PSa»PSB,PSF,PRE ANAIK), PREANB IIO» 

AIRF6360 


1PREFT(K) «UANA(K) t UANB (K ) tUFT (K ) t AA y AB» AF f DPARS»OPBRS * 

A IRF637C 


2DUMAE! K) » CUMBE(K) 

AIRF6380 


WRITE! JTAPE«67)TANAN A(K) «T AN ANB(K) 

AIRF6385 

c 

M INCLUOE CARO AIRF638S ** 

AIRF6390 

c 

UNITS CONVERSION 

AIRF64 00 

c 

♦* INCLUCE CARCS AIRF6413 AND 6417 ** 

AIRF6A10 


TANAKA (K)*T AN AN A 1 K ) *459 *7 

AIRF6A13 


T ANANB IK) -TANANE !K 1+459.7 

A I RF6A 1 7 


PREANA (K)«FREANA(K)*144« 

MRF6420 


PREANB<K)*PREANB(K)*144 w ' 

AIRF6430 


PR6FT!K)*PREFTIK)4144. 

AIRF6440 


IFUPRjNT,Nftl)GQTC07?» 

AIRF6450 


ViRITKU,87M)XCPUO*U*NA(K)fT0N*NMlOtMAH0IHMMNinUt 

A IAPI460 


1 PftEAN l »PRSPT i i£2CPt CAICt 0N4VC 

A1M6470 

8758 

CCMINIE 

AIRF64B0 


IF!NSTCP.EQ*l)STOP 

AIRF6490 


XCPIK )*XCP (K )/ 12* 

AIRF650C 


I F ( K . G E • NS HC P ) GCT 090 6 

AIRF6510 


K*K+l 

AIRF6520 


G0T09C70 

AIRF6530 

908 

CONTINUE 

A I RF 6540 

C 

TEST r ; GR ENO OF FLAMETUBE. 

A IRF6550 
AIRF&560 


IFIK+ 1-NLAST ) 157* 9C60« 138 

AIRF6570 

AIRF6580 



A IRF6590 

cc 

INOEX TC NEXT CALCULATION POINT 

AIRF6600 

9060 

K-NLAST 

AIRF6610 
A I RF6620 


GCT0908 

A IRF6630 j 

157 

K«K*1 

AIRF6640 i 


J«K+1 

AIRF66501 



* 


SET ANNULUS PARAMETERS FOR SUBROUTINE EQUAN 

UAM-UANA1K) 

PREANi-PREANA(K) 

DENANI-DEMNAIK) 

TAN1-TANANAIK) 

AFAN1-AFANA1K) 

CC TO 105 

ITERATION CONTROL TO AOJUST MASS FLOWS* 

AIR PASS FLOW REMAINING IN EACH ANNULUS 

158 AFSTA-AFANA(NLAST) 

AFST8-AFANBCNLASTI 
08«AFSTA/AFA 
D9*AFSTB/AFB 
I F( IPRINT «NE* 1IG0TC8750 

WrITE ( 6*8764 JPREAN A! NLAST) * PREANB (NLAST )* PRE FT ( NLAST ) * APS* AFSTAi 
1 STB* AFSt »AFSU 
2« AFCL t AFCU* LCANI 
B750 IFIPSF.GT .l.E10)P$F r l.El0 
ST RE FP*STP REF/144. 

C( l )*! PSAIN-PSF )/ DPR EF* 144* 

Q(2)«(PSBIN-PSF)/0PREF*144. 

C ( 3)» ( STREFP-PSF) /STREFP 
CI4) * (PSAIN-PSF | /STREFP 
Q(5) »(PS8IN-PSF)/STREFP 
Q(6 )»CUMAE {NLAST )/STREFP 
C I7)«0UPBE( NLAST) /STREFP 
C (8)«0PARS/STREFP 
Q (9)*0PRRS/STP£FP 
IF (I pRlNT.GE.l.OR.LCMFL.EQ.l) 

IWRITeI JTAPE, 21)iC(K),K-l,«) 

AFl*AF S/AF2 
AF3* AF A/AF2 
AF4 ? *AF8/AF2 
IFUPRINT.GE.1> 

1WRITEI JTAPE,38)AFl, AF3, AF4 
2AFA»AFA 
L AF8*AFB 
AFSS*AFS 

LOOP COUNTER INDEXED ANC TESTED FOR NA*/MAHB*/MB ITERATION 


LCANI*LCAN !♦! 

I F (K30+K40 .GF. I ) LC AN J* LCANI 
IF(lCMFL.EQ*1)G0T0163 
IF (LCANI. LE. LCANI LIG0T0403 
WRl TE ( JTAPE *3000 ) 

WRITE! JTAPE* 1002) 

IF! LCAML.LE.45) WR ITE! JTAPE* 1003) 
I F1LCANJ.GE.35) WRITE! JTAPE *1004) 
WRITE! JTAPE *1005) 

LANHET-2 
GO TO 163 

TEST IF MA* IS APPROX. 0. 


403 IF(AF$TA*AFSTB.LT.O.)GOT0160 


IF(ABS(AFST,A«JFSTB)/2./AF2.LE.FlO»GOTOU3 

c modification of ha and mb. 

I F ( ( AFSTA+AFSTB).GT.O.) GOT 01 61 5 
1F(AFS.LT.AFSU)AFSU»AFS 
AFS«AMAXi(AFS*U.-FITAU>» < AF SL*AFSU >/2. ) 
G0T0U16 

1615 IFUfS.GT.AFSUAFS* *AFS 

A F$»AM INI ( AFS 1. ♦ F . . -U) » < AFSL *A F SU >/ 2 . ) 

C NEW AIR HASS FLOW IN INNER ANNULUS 

1616 AfA«AFA-( AFS-AFSSI/2. 

* 

C NEW AIR HASS FLCW IN CUTER ANNULUS 

AFB«AF2-AFA-AfS 
GC TO 97 

C HOD! FICATIGN CF HA ANC MB. 

160 AFD-AFA+AFB 
AFC-AFA/AFC 

IFIAFSTA.GE.O. ) GOTO 159 

IF(AFC.GT.AFCL)AFCL«AFC 

AFC»AHIN1( AFC*( i. *F ITAV ), ( AFCL+AFCU J/2. ) 

G0TO1590 

159 I F( AFC.LT. AFClil AFCU*AFC 

AFC-AHAX1 I AFC • ( l.-FITAV) » ( AFCL+AFCUI/2.) 

C NEW AIR HASS FLOW IN INNER ANNULUS 

1590 AFA«AFC*AFD 
AFB*AFD-AFA 
IF(AFB.LE.O.O)STCP 
GO TC 91 

163 If(LDD.EQ.1)GCTC911 

I F (KANHET.NE.0)G0TO9O9 
I F (LANHET.EQ. 1 U0TC9000 
909 LDD*1 
LO*l 
LCMFL-l 
I PN* I PRINT 
IPRINT-1 
CALL CIFLW 
I PRINT* IPN 
G0T097 

911 CONTINUE 
CALL BIRFLO 
779 CONTINUE 
900 RETURN 
9000 AFCU-OCCMU) 

AFCL-CCCHI2) 

AF$L»DC0MI3) 

AFSU»DCCH(4) 

COTO 900 
END 


U7 

♦ 

AIRF726C 

A IRF7270 

AIRF7280 

AIRF7290 

AIRF73C0 

AIRF7310 

AIRF7320 

A IRF7330 

AIRF7340 

AIRF7350 

AIRF7360 

A IRF7370 

A IRF7380 

A IRF739C 

AIRF74G0 

A I R F 74 10 

AIRF7420 

A IRF7430 

AIRF744C 

AIRF7450 

AIRF746C 

A IRF747C 

AIRF7480 

A IRF7490 

AIRF7500 

AIRF7510 

AIRF7520 

AIRF7530 

AIRF7540 

AIRF755C 

AIRF7560 

AIRF7570 

AIRF7580 f 

A IRF7590 

AIRF76CC 

AIRF7610 

AIRF762C . 

A IRF 7630 

A IRF764C 

AIRF7650 

A IRF7660 

AIRF7670 

AIRF7680 

AIRF7690 

AIRF7700 

AIRF7710 

AIRF77 20 

AIRF7730 

AIRF7740 

AIRF775C 

A IRF7760 

AIRF7770 

AJRF7780 

AIRF7790 

AIRF7800 

AIRF7810 

AIRF7820 

AIRF7830 


YOUR CARD TOTAL IS 


779 


1 3FTC 81 RF LIST 

SUBROUTINE EIRFLO E 

B 

SUBROUTINE 8 t R F L 0 8 

THIS SUBROUTINE IS A CONTINUATION OF SUBROUTINE AIRFLO B 

NO SUBROUTINES ARE CALLED BY BIRFLO B 

CNF SUBROUTINE CALLS BIRFLC B 

U AIRFLO B 

THIS SUBRCUTINF USES CCNNON BLOCKS WHOSE NAMES CONTAIN THE NUMBER A. B 
BZERC IS A DUMMY BLOCK* USEO INSTEAD OF A OIMENSICN STATEMENT B 

CCMMCN/B4/DPREF B 

CCMM0N/B16/CD$(20, 15)*DPHS(20» 15I*FLCV*IH, NABXUS) B 

1, nSP(20)*GXIS(20»19) «K4*K6 *FIT *F IPKl • F (PSI *F I A «F I TAL* F ID* F IENTH B 

2 *SHAFST * FIFTPRt LCMFL tLCANlLB 

3 * LCANL* LCFTEL*LCFTL*LCPRTL *BETA* Ask* FF IZI45) *AHCOME*NSCOOF( 20) 6 

*,LCPTAL,PAFRZ*NHTUC50), AF23A(3 ),AF23B< 3)»VAF23A(3) ,XAF238(3) B 

CCMMQN/B6e/AFANA(4S),AFANB(45)*AFFT(45).AFPRZ.C2A(4S>*C2BUS> 6 

2 « AFSYPyF ARFT (45) »CEKANAI4S )«DENANB(45) 6 

3* SAT TRACES ) *SAFTRB(45)*CTRA(45)«QTRB( 49) »REAAN(49)»REBAN 149) B 

4,TWA(45) .TWBU5) B 

CCMM0N/B168/AANAC 45) ,AAN8(45 I, CCA ( 49) »CCB(49 I *FHCR*NLAST B 

l tKANHET tLANHET fPERCC* THIKFT B 

2, DANA(45) ,CANB(45) ’ B 

COMMON /06 7/ OENFT (45 ) »EK| 7* EK 19* EK 2C* EK16 6 

1 *C(50 ) *GX IA (90 )»K*MUJ( 90) B 

CCMMCN/B167/GASC*6RAVC,6J0ULE.IHJ( ?0),XH(5C) ,NH B 

COMMON/ E678/PREFT (45 )*FREANA (45) »PREANB (45 )* TFTI43) yTANANA (49 ) * TAKB 
1ANB(45) *AFJ1(50)*UFT(45) B 

CCMM0N/B1678/NSHCP*XCP(A5»*AF.T(A9) f PI B 

l *NHH (90 ) »KJSN( 43*61 *HAU( 90 )*CFTA(A5I *CFTB( 43 ) *NAB( 90 ) *NCODEA (49) 6 

2»NC0DEB(45) »TZ B 

C0MM0N/B12678/JTAPE* (PRINT B 

CCMMCN/B126/AF2*TANU*TAN1 B* PANlA.PANIB B 

1 ,AFA*AF8*PRE0M,STACT* IBL* STPREFfPNTR A*PNTRB*OPHSNT f OOMLOS B 

CGMM0N/B6/PREAN1* PREAN2* 0ENAM|1 *0ENAN2*TAN1*TAN2*AAN1*AAN2 tAFANi f B 
IAFAN2*UAN1 *UAN2 *Z A JM(49 )*ZMH(4S)* ZZCPyKl • Kll * J»KSH*UANB (49) • B 

2FARL t FAR* ZST 0C» AFFTl » AFFTT1* TFT1*TFT2* MTRATE# B 

3ZMJU J(49) *ZM JET (491* CO* GXI *CPHl» PREFTItPREFTI* B 

40FNFTI »CENFT2f AFTit AFT2fAFETE.UFTI»UFT2f FARFTI# B 

5FARFT2iENTHAL^CNF 9 U«NIfLCAN«LCFTi|CCn«K7«KI9flU2« B 

AAFIYAAf AFSYFBf ANVIAfAFIVIlf LCFRTflCMTA I 

7 »C2 (49) » UANAIAI ti 2MHA( SI tlKUtCMI I 

A*DPH(50)»kCC( 90) *NFF tZ(49) tOFAFSt OFBF|#OFA(t«OPII£ I 

9* RC( 50 ) . B 

ltAfBtOyE fl 

2*K30 *K40«X50f K60 6 

CCMMCK/BZERO/CFFT (90 ) * FR IC FA (45 )* FRICF6(43) •HAM(9C) fAFJZ(SO) • 6 

L0UM(360) B 

COMMON/BUN IK/0UMAE1 45) * 0UM8E(45) B 

CCMM0N/B1260/ AFCLf AFCU* AFSL* AFSU B 

C0MM0N/B5867/XFSA, XFSB 8 

CCMM0N/B126E/ AFi#AF3*AF4*AFS,N*NSH*KKl B 

29 FGRMAT (///// 25H0MISCELLANE0US QUANTITIES/1X24I IH**)/96H0 AXIAL PQSB 
1 IT ION RATE OF BURNING FRICTION FACTOR/liH FROM CCMPRESSORB 


28 X7H0F FUELIIX9HIN ANNULI/ AX9M0ISCHARGC7X19HLBM PER SEC FER/7XAHINI 


RFCCCl 

RF0002 

RF0003 

RF0004 

RF0C05 

RF0006 

RF0007 

RF0C08 

RF0C09 

RFOOIO 

RF0011 

RFCC12 

RF00I3 

RF0014 

RF0015 

RF0016 

RF00I7 

RF0018 

RF0019 

RF0020 

RF0021 

RF0022 

RF0023 

RF0024 

RFG025 

RF0026 

RF0027 

RF0028 

RFCC29 

RF0C30 

RF003L 

RF0032 

RF0033 

RF0034 

RF0035 

RF0036 

RF0037 

RFC038 

RF0039 

RF0040 

RFCC41 

RF0042 

RF0C43 

RF0044 

RF0CA3 

MCCA8 

RFCC47 

RF0048 

RF0049 

RF0050 

RF0051 

RF0052 

RF0053 

RFCC54 

RF0055 

RF0096 

RF0057 

RF0098 

RF0099 


199 

JCHFSBX35HFT AXIAL C I STANCE INNER OUTER / / ( 5 XF8 . 3 , 1 1 XF 8 .3 ,7X2FB IRF0060 

49. S)) BIRFCC61 

38 FCRMATI /////20H0AIP MASS FLCW SPL l T/ 1X19 ( IH- ) /5 E RCFR AC 7 1 CN OF INLFBIRF0C62 
IT AIR PASSING THROUGH SNUUT ANO/OR CCME *r 8.5/4<H FRACTICN CF INLFPIRF0063 
2T AIR PASSING INTC INNER ANNuLuSflX IH«F8. 5/49H FRACTION OF INLET AIBIRF0064 
1R PASSING I NTC CuTER ANNULUStiX 1H* Ffl . 5 ) B IRFCC65 

54 FORMATI/////AIHOCUANTITIES RELATED TO FLOW THROLGR ROLES/ IX AO ( IH- ) B I RFCC66 
l / 1 6H OH CL E ROW AX IK6X95HRCLC INNFR NUMBER RCLE DISCHARGE CCBIRFCC67 
2EFFICIEMS EFFECT , INITIAL INITIAL FRACTION ACC LM-/3 7H NUMBER BIRF0C68 
i> POSITION TYPE OR IN6X5HPRESS 27 X UH- 1 VE JFT6X11HJCT VE B IRF0C69 

4L OF FX6HUL AT ED/ 1 IX8HFR0M CGM9X9 1 ROUTER THIS -URt CORRECT R fi I R FOG 7C 
5ATIO ACTUAL ROLE ANGLE -OCITY CURRENT FRACT ICN/11X8H-PIRFCC71 
6PRESS0R9X33HWALL ROLE LOSS -EC OF 14 X44HAREA OEGREESB IRF0072 
7 FT PER ANNULUS OF INLET/ 1 1X9 HO I SCR ARGE 1^X1 ARROW FACTOR! CB IRFCC73 

8X7HACTLAL 9X5HSC FT12X3HSEC6X16HA IR FLOW AIR IN/1 1X6HINCHEE42X6HTBIRFC074 
90 CQR36X l 5H THROUGH F LAME /59X6RRFCT EC 36X 5HH0LES5X4RTLBE // ( 1X1 5.F1B I RFCC75 

12.3,17,16, 19 ,F 10.2, 4F8. 3, F 8.2, E I C . 2, Ffl . 3 , F 10 .3 ) ) BIRF0076 

73 FORMAT (/////26HCS fCONCARY ROLE FLOW SPLIT/1X24( 1H-) /71H0FRACT1 ON CB IRF0C77 
IF SECONDARY HCLE AIR RECIRCULATING UPSTREAM FCR INNER WALL -F5.4/7B IRF0078 
2 IHOFR ACT l CN OF SECCNOARY HCLE AIR RECIRCULATING UPSTREAM FOR OUTERB I RFCC79 


3 WALL * F5.4 ) 

DC 2 K*1 fNLAST 
XCP(K)*XCP(K )*12. 

C FRICTICN FACTOR 

FR IC FA ( K )« .0035+. 264 ARE AAMK )**(-. 42) 
FRICFe(K)».0035*.264*REBAN(K)**(-.42) 

2 CONTINUE 

WRITE! JTAPE.25) (XCP(K) ,WFF IZ(K ),FRICFA(K) ,FR ICFB <K ) , K« 1 , NLAST ) 

00 3 K«l, NLAST 
XCP(K)*XCP(K) /12. 

3 CONTINUE 
NSH*K JSN (1,1) 

DC 90 l K* l, NLAST 
CO 902 1*1,6 

IFIKJSNIK, I )) 902,902,903 
903 KK1*KJSN (K , I ) 

IF(NHTU(KKl).GE.l)CCTC57 
AFJ1 (KK1)*0. 

DPH( KK 1 )*0 • 

WCD(KK1)=0. 

HAU ( KK 1 )*0 . 

C RATIO CF ACTUAL TC CORRECTEC CISCRARGE COEFFICIENT EFF RCLE AREA 

57 RCIKK1 ) r.IKKl )/WCD(KKl ) 

HAW(KK1)*HAU(KK1 ) *C ( KK1 ) *FLOA T ( NHH ( KK I ) ) 

IF( CXHUIKKI ) .NE .0.0) GO TO 631 

IF (NAB (KK l ) .EQ l ) H AW ( KK 1 ) *HA W ( KK 1 ) *CFT A ( K ) 

IF (NAB(KKl) . EQ.2 ) HAW ( KK 1 ) -HAW { KK 1 ) #C FT B( K ) 

C ACCUMULATED FRACTICN CF INLET AIR IN FLAME TUBE 


631 IFtKKi .EQ.NSH)OFFT(KKl)«ARl +AF J 1 < KK ] ) / AF2 
IF ( KK1 .NE.NSH)DFFT(KK1)*DFFT(KK1-1)+AFJ1(KK1 

FRACTICN OF ANNULUS AIR FLOW THROUGH HOLES 


)/AF2 


BIRF008C 
BIRFCC81 
BIRFCC82 
8 I RF0083 
B I RFGO 84 
B IRFCC85 
8 IRF0086 
BIRF0087 
BIRFOOee 
BIRF0085 
BIRF0090 
BIRF0091 
BIRF0092 
BIRF0093 
BIRFCC9A 
BI RF0095 
BIRFC096 
BIRF0C97 
BIRFCC98 
BI RF0099 
BIRF01CC 
BIRF0101 
B IRFCIC2 
BIRF0103 
BIRFolOA 
BIRF0105 
B IRFCIC6 
BI R FO 107 
eiRF0108 
BIRF0109 
BIRF0110 
BIRF01U 
BIRF0112 
BIRF0113 
6IRF01 14 
BIRF0115 
BIRF0116 
BIRF0117 
BIRFOlle 

BIRF0119 



200 


* * . . 

AFJ1( KKl)/AFANA(K ) 


IF(NAR(KKl).6(».l)AFJ£(KKll 


902 


901 


C 

C 


IF (NAfMKKl). EU.2I AFJ71KK 1) = AF JUKK 1)/AFAN3(K) 
CONI INur 

ki*(k jsn(k, n-n 

I F ( Kl . Lf . 1 ) K 1 = KK I 
IHK.HJ. l)AFFTfKJ=AFS 
IFlX.NC.UAFFT (K)=CFFT(Kll*AF2 
DO 4 KM = NSH,NH 

INITIAL JfcT ANGLt 
UNITS CONVf R S I ON 


GXIA(KKl) = GXIA(KKl)«>l80./Pl 
XH(KKl)=XM(KKl>*I2. 

CONTINUE 

WRITE{JTAPE»54MKKI,XH!kKI ),NHTU!KKl ) ,NAB l KK 1 I . NHH t KKU , DPH ( KKU ,WBIRF0135 
ICDIKK1 ) ,RC(KK1> ,C(KKI),HAW(KK1» , GX I A ( KK 1 ) , WU J I K K 1 ) , AF J Z ( KK 1) ,DFF T< BIRFOl 36 


BIRF0120 
BIRF0121 
BIRF0122 
BIRF0123 
BIRF0124 
BIRF0125 
BIRF0I26 
B IRF0127 
BIRF0128 
BIRF0129 
B IRF0I30 
B IRF0131 
BIRFOl 32 
BIRF0133 
BIRF0134 


*> 
346 


778 

779 
900 


2KKI ),KKI=NSH#NH) 

BIRF0137 

DO *» KKisNSH.NH 

BIRF0138 

UNITS CONVERSION 

B IRF0L39 

GXIAIKK1 )=GX IA(KK1)+PI/180. 

BIRF0140 

XHIK.K1 )=XH(KKI)/12. 

BIRF0141 

CONTINUE 

BIRF0142 

XFSAQ=I.O-XFSA 

BIRF0143 

XFSP Q«l.J-XFSB 

BIRF0I44 

WRITE! JTAPE, 73 JXFSAg.XFSBO 

BIRF0145 

WRIT6(JTAPE,381AF1,AF3,AF4 

BIRF0146 

IFINSHCP.EQ.l IGCT0779 

BIRF0147 

N= NSHCP-l 

BIRF0148 

D0778K=l,N 

BIRF0149 

F ARF T (K > = FARF T (NSHCP) 

BIRF0I50 

i CONTINUE 

BIRF0I51 

RETURN 

BIRF0152 

END 

BIRF0L53 


YOUR f A^C ILI AI I' 


IS 4 : 
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SlBFTC CISJ LIST 

SUBRCUT I NE DISJET 


THIS SUBROUTINE CALCULATES THE FOLLOWING JET PARAMETERS 

1. JET VELOCITY 

2. JET MASS FLOW RATE 

3. JFT DISCHARGE ANGLE 

4. jet enthalpy 

5. jet momentum 

FILM COOLING PARAMETERS ARE ALSO CALCULATED. 

one subroutine is called by cisjet 

1. I l API - ID INTERPOLATION 

CNE SUBROUTINE CALLS DISJET 
I. AIRFLC 

THIS SUBROUTINE USES COMMON BLOCKS WHOSE NAMES CONTAIN THE NUMBER 


VI Z- 


B 1 26 » 6167* 8168, 867*, B1678, Bl2o7fl 


C0MM0N/B16/CCS(20, 15), DPHS( 20,15) ,FICV,IH, NABH45) DISJ0230 

1 ,NSP(2C),GXIS(20,15),K4,K6»FIT, FIPFI, F IPSI ,F I A ,F ITAU ,FID ,F IENTH CISJ0240 
2 ,SHAFST , FIFTPR, LCMFL ,LCANILD IS J0250 

3 , LCANL ,LCFTEL,LCFTL ,LCPRTL, BETA,ASW,FFIZ(45) ,AHDOME ,NSCOCP ( 20) DISJ0260 

4, LCPTAL,PAFRZ,NHTU(50), AF23AI 3) , AF238 ( 3 ) , XAF 23A ( 3 ) » XAF238 ( 3) DISJ0270 

COMMON/ R68/AFANA(45),AFAN3(45),AF FT (45) » AFPRZ *C2A( 45 ) *C 2B (AS) CISJC280 

2 ,AFSyP,FARFT(A5),DEnANAI45 5.DENANBCA5) DISJ02 90 

3,SAFTPA(45) , S AFTRO ( 45) , QTR A( 45 ) , QTRB <45 ) .REAAM 4 5) ,REBAN (45 > DISJ03C0 

4,TWA(45) ,TWB(45) DISJ0310 

CCMM0N/ei68/AANA(45), AAN8( 45),CCA( A 5 ), CCB (45 ) , FHCR t NLAST Cl S JO 320 

1, KANHf T,LANFET,PERCO ,THlKFT DISJC33C 

2»0AN'A{45), DA NB(45) DISJ034C 

CCMMCN/R67/CENFTI45) ,EK17, EK19.EK2C, EKl € DISJ0350 

1 , C ( 5 C ) ,GXIA(50),K,WUJ(50) DISJ0360 

CCMMCN/R167/GASC,GRAVC,GJ0ULE, IHJ(50),XH(50)»NH 01 SJ0370 

CCMMCN/B678/PREFT(45),PREANA(45),PrEANB(45),TFT<45) ,TANANAU5) ,TAND!SJ038C 
1ANB(45),AFJ1(50) ,UFT(45> DISJ0390 

COMMON/ Rl67fl/NSHCP,X CP (45), AFT(A5)»PI OISJ0400 

1 , NHH(5C),KJSN(45,6),HAU(50),CFTA(45),CFTB(45),NAB(5C),NC0DEAC45) CISJ04I0 

2, NCCDEB(45),TZ DISJ042C 

COMMON/ B 12678/ JT A PE, IPR InT DISJ0430 

COMM C N/B126/AF2, TAMA, TAN18,PAN1A, PAN IB DISJ0440 

1, AFA»AFb,PReDM,ST AGT , IBL ,STPREF, PNTRA, PNTRB,DPHSNT , COKLOS CISJ04 50 

CCMM0N/B6/PREAN1, PREAN2 , DENAN 1, DENAN2, TAN l ,T AN2 ,AAN I, AAN2, AFANl , DISJ0460 

IAFAN2,UAN1,UAN2,ZAJM(45),ZMH(45) ,ZZCP,K1,K11, J,KSH,LANB(45) , D I S J047C 

2FARL,FAR,ZST0C,AFFTI,AFFTT l,TFTi,TFT2,HRRATE, DISJ0480 

3ZMJUJ(45) ,ZMJET(45),CC.GXI,DPFl» PREFT1 ,PREFT2 , CISJ0490 

4DENFT 1 ,DENF*’2 , AFT l,AFT2»AFFT2,UFTl,UFT2, FARFT1, 0ISJ05 0C 

5FARFT2 ,ENTHAL,LCMF,LCAN I, LCAN,L CFTE,LCFT t K7,K 13 ,K12, DISJC510 

6AFSYPA,AFSYPB,AFSYIA,AFSYIB,LCPRT,LCPTA DISJ0520 

7 , C2 (45 ) , UANA (45) , ZMp A ( 2 ) » G Xi A ,GX IB CISJ0530 

8, D PH (50) ,WCC(50),WFF IZ (45 ) , DPAFS , DPBFS ,DPAES, DPBES DISj0540 

9, RC(50) DISJC550 

l , A ,B, D, E 0ISJ0560 

2, K30,K40,K50,K60 DISJ0570 

CCMMCN/BZERC/UH(5C ) » AF J ( 50 ) , OUHGX 1(25) ,DUMDPH< 25 ) tOUMCO (25 ) DISJ0580 

1 , OUM ( 42 5) D ISJ0590 


202 

* *•••••••••*•••••••••*••• 

8 765 FORMAT ( 7HODIS JET3 I ll»7Fll.3/( 7X10F11.3) ) 

C DISCHARGE COEFFICIENT AND jET ANCLE 
F*NL AST 

C SET HcLE AREA TC ZERO 
ThA*0.0 

C SPECIFIC HEAT AT CONSTANT PRESSURE 
TAI*TAN1 

ZZCPT«.24l9*TAl-.8181E-5*TAl*42/2.*17.9lE-94TAi*43/3,-2*742«-l2* 
1 TAl**4/4. -102.42 
CC 116 1*1,6 

c are there any more holes at this calculation point 

IF (KJSMK, I) 1117, 117,109 

109 KK1*KJSN(K,I ) 

DPHI KK1 )*CPHi 
IF(KI) 110,1 10, 111 

C ARE HOLES ON THE CURRENT ANNULUS 

111 IF(NAe<KKl>-2>U6tU2fll6 

110 IF (NAB (KK1 ) «NE.l )GCT01 16 

112 KKK*KK1 
HNHH*NHH(KKKI 
IH-IHJ(KKl) 

THA*HNHH*HAUIKKK) 

NS PN*NSP ( IH I 

IF(MCD(KSCCCP(IH),10).NE.2)GQT0U2* 

C HCLE AREA FOR COOLING SLOTS 

I F (NAB ( KKK ). SC. U TM'HAufKKK )*CCA(K ) 

IF (NAB (KKK).EC*2)THA*HAU(KKK)*CC6(K) 

C HAS PRESSURE REVERSAL OCCURRED PREVIOUSLY 

1125 IF(NAB(KKl). EC. I • AND .K 30. EG* 11 GOTO 150 
IF(NAB(KK1).EQ.2.ANC.K40.EQ.1) GOT0150 

C HAS ANNULUS AIR FLO* BEEN NEGATIVE PREVIOUSLY 

IF(NAB(KKl).EQ.l.ANG.K50«EC*l) G0TG500 
IF(NA0(KK1).EQ.2 .ANDv,K'.O.EQ.1> GOTOSOO 

C TRANSFER HOLE OATA TO DUMMY STORE 

CC 113 13 • l.NSPN 
DUMOPH (I3I*DPHS(IH, 13) 

DUpCD( I31*CCS(IH,I3) 

DUPGXl ( I3)*GXlS( IH, 13) 

113 CONTINUE 

I FtDPHl.LE.O. )GC TO 150 
DUNNS P-NSP(IH) 

OPHiLG-ALOG(OPHl) 


•••••••* 

OISJ0600 
DISJ0610 
0ISJ0620 
DISJ0630 
CISJ0640 
DISJ0650 
D ISJ0660 
DISJ0670 
0ISJ0680 
0ISJ069C 
D ISJ0700 
DISJ0710 
DISJ0720 
DISJ0730 
DISJC740 
OISJ0750 
OISJ0760 
DISJ0770 
D IS JC780 
0ISJ0790 
0ISJ0800 
0 1 S JOS 10 
D ISJ0820 
D IS JOS 30 
OISJ0840 
CISJ0850 
DISJ0860 
0ISJC870 
0ISJ0880 
CISJC890 
0ISJ090C 
0ISJC910 
OISJ0920 
CISJ0930 
DISJ094C 
0ISJC950 
0 1 S J0960 
CISJ0970 
DISJ0980 
D ISJC990 
DISJ1000 
DISJ1010 
DISJ1020 
DISJ1C30 
0ISJIC4C 
DISJ1050 
0ISJ1060 
DISJIC70 

0 IS J1080 
0ISJ1090 
0ISJ1100 
DISJ1H0 

01 SJ 1 120 
0ISJU30 
CISJU40 
0ISJ1150 
DISJ1160 
0ISJ1170 
0ISJ1180 
0ISJ1190 


u o o 


* 


* ••••* ♦ • ••*•••••••• 

C IS PRESSURE RATIO OUTSIDE HOLE DATA TABLE RANGE 

IF (DPHILG.GT.ALCGI 256.0 ) ) CPHUG-ALCG ( 2 56 .0 ) 

C DETE RHINE DISCHARGE COEFFICIENT BY INTERPOLATION 

CALLI IAPUDPH1LG.CC, OUMOPh.OUMCD.NSPN) 

C OETE RHINE INITIAL JET ANGLE BY INTERPOLATION 

C ALL 1 1 AP l( DPH1LG ,GX I . DUMOPH. DUMGX I ,NSPN ) 

C STCRE DISCHARGE COEFFICIENT FOR PRINTOUT IN AIRCON 

KCDiKKl )*CC 
IFUPRINT.GE.l) 

1 WRITE (6,8765 ) K. Kl, KK1.0PH1 ,C0, AFAN 1. THA.UAN1 .PREAN1 

C TEST FOR CO CUTSlOE TABLE LOWER BOUNDARY 

IF (CD) 150,160.160 
150 CC=0.6 

GXIM.5708 

AFH*0.6*THA*AFANl*$QRT( AoS(DPHl) J/AAN1 
I F (AFH.GT# AF2/F/3* )AFH*AF2/F / 3. 

2 CONTINUE 

C SET AIR FLCW PARAMETERS 

AFAN1 = AFAN1-»AFH 

AFAN2*AFANl 

DENAN2*DENAN1 

UAN2*UANl 

TAN2*TAN1 

PREAN2*PREAM 

C SET JET PARAMETERS 

A F J ( KK1 ) - 0 .0 
GXIA(KK1)«0.0 
C ( KK 1 )*0«0 
UH (KK1) 3 0«0 
ZMJET (K)*0«0 
ZMH(K)«0.0 
ZAJH(K)=0.0 
ZHJUJ(K)«0.0 
IF(NAB (KK1).EC.1)K30»1 
I F (NAB ( KK1 ) • EC, 2 ) KAO* 1 
GO TO 116 

DISCHARGE COEFFICIENT CORRECTION FOR PRESSURE RATIO* 
NSCCGP(tH)* 0 FOR FOLE WITH NO SCOOP 
■ l FOR HOLE WITH SCOOP 

160 IF(MOO(NSCOOP(IH),10).NE.O)GOT0182 
180 DP*0.5*DENAM*UAN1«*2/GRAVC+PREAN1 
GO TO 183 

182 DP-PREAN1 

183 C0C«C0*(0.25*DP/PREFTl+0.75) 

IF(COC.LT.CO)COC*CO 


0ISJ1200 
0ISJ1210 
0ISJ1220 
DISJ1230 
DISJ1240 
DISJ1250 
0ISJ1260 
DISJ1270 
DISJ1280 
CISJ129G 
DISJ1300 
CISJ1310 
DISJ1320 
0 ISJ1330 
0 1 S J 1340 
CISJ1350 
CIS J1360 
0ISJ137C 
0ISJ1380 
DISJ1390 
DISJ1400 
0ISJH10 
0ISJ1420 
DISJ1430 
DISJ1440 
0ISJ1450 
0 1 SJ 1460 
DISJ1470 
DISJ1480 
DISJ1490 
DISJ1500 
0 1 SJ1510 
CISJ1520 
0ISJ1530 
0ISJ1540 
CISJ1550 
CISJ1560 
0ISJ157C 
DISJ1580 
DISJ1590 
CISJ1600 
DISJ1610 
0 1 SJ1620 
DHSJ1630 
DISJ1640 
Cl S J165C 
DISJ1660 
DI S J 1670 
CISJ1680 
DISJ1690 
0 IS J17C0 
0ISJ1710 
0ISJ172O 
0ISJ1730 
0 IS J174C 
DISJ1750 
DISJ1760 
CISJ1770 
DISJ1780 
0ISJ1790 



# 


z04 

...* 

IF(CDC.Gl.l.6*CC)CCC«1.5*CD 


,* 


* 


TEST FOr NO JET ANGLE OATA. 


IF ( MSCCCPf IF ) .NE *10. AKG. NS COOP ( IH ) .NE . 1 1 ) COTOl 9C 
191 OMAXL=ALOG<256.0) 

CALL IIAP1 (DPAXLtCC* CUMOPH* OUMCO.NSPNI 
CCI NF*CC 

CDINFC«CDINF*(0.25*CP/PREFTl-*0.75) 

AA*COC/CO INFC 
IF(AA.GT.l.C)AA«1.0 
GXI= ARSlNiSCRT (AA) ) 

190 cn=coc 

; TEST ANNULUS AIR FLOW 

IFUFAnI.LE.O.OIGQ TO 500 
GC TC 115 

C SET JET PARAMETERS 

500 ZAJM(K)*0.0 

ZMJET(K)=0.0 
ZKMK)=0.0 
ZP JUJ (K 1=0.0 
AFJ(KK1)*0.0 
GXIA (KK1 ) = 0.0 
C(KK1 )*0.0 
LH(KKl 1=0.0 

C SET AIR FLOh PARAMETERS 

AFHH® ABS ( «6*TFiA*AF ANl*SQRT ( ABS (DPHI 1 I/AAN1 ) 

I F. ( AFHH .GT.AF 2/F/4 • )AFHH* A F2/F/4. 

1 ccntinue 

AFAM*AFANl-AFHH 

AFAN2 = AFAM 

PREAN2=PREAN1 

TAN2=TAN1 

UAN2*LANl 

DENAN2=0ENAN1 

IF (NAEtKKl).EC,l)K50»l 

IFINAB(KK1).EC.2)K60«1 

GC TO 116 

C C CALCULATE JET AIR MASS FLOW RATE 

115 AFJ(KKi)=C0*AFANl*THAA0PHl**0.5/AANl 
C (KK1 )«C0 
Gx I A ( KKl )*GX l 
AFJ1IKK1)*AFJ(KK1 ) 


C JET VELOCITY. 

AAA=2.*(PREAN1+.5*CENAN1*UAN1**2/GRAVC-PREFT1)*GRAVC/0ENAN1 

IF(AAA.LE.O.O)AAA«0.0 

UH (KKl l*SCRT I AAA) 

WLJ(KK1)»UH(KK1) 

C AXIAL JET MOMENTUM. 


DISJIgCO 
0ISJ181C 
DISJ1820 
0ISJ1830 
CISJ184C 
0ISJ1850 
DISJ1860 
0ISJ1870 
CISJ1880 
0ISJ1890 
0 IS J1900 
C I S J 19 10 
QISJ1920 

0 IS J1930 
0ISJ19A0 
DISJ1950 
CISJ1960 
DISJ1970 

0 1 S J 1980 
DISJ1990 
CISJ2000 
D IS J20 10 
0 1 SJ2C20 
DISJ2C30 
CISJ2040 
D1SJ2 050 
DISJ2C60 
0ISJ2070 
CISJ2080 
0ISJ2090 
DISJ21C0 
DISJ2110 
0ISJ2120 
0ISJ2130 
DISJ21AC 
0 1 S J 2 1 50 
0ISJ2160 
CISJ217C 
DISJ2180 
0ISJ2190 
DISJ2200 
CISJ221C 
DISJ222C 
0ISJ2230 
DISJ2240 
CISJ2250 
CISJ226C 
DISJ227C 
DISJ2280 
CISJ2290 
DISJ230C 
DISJ2310 
DISJ2320 
CISJ2330 
0ISJ23A0 
DISJ2350 
0ISJ2360 
0ISJ2370 
0ISJ2380. 
0ISJ239Q 


•••*.... *.••••••••*•• 

AJM*AFJ(KK1) *UH(KK 1 )*COS (CX t ) 

C SUMMATION OF JET AIR FLOW. 

ZMH(K»-ZMH(KMAFJ(KKl) 

c is the net remaining annulus flow negative 
IF(IPRINT.GE.l) 

IWRITE(6,8765)K t Kl f KKI f DPH(KKl)fC(KKI) t AF J( KK I ) » ZMH (K ) 

305 IF(ZMH(KI-AFAM)300» 300*301 
301 IF (K.LT.NSHCP)AFPRZ-AFPRZ4ABSUFANll 
AFAN1*-AF2/F 
AFAN2® AFAN1 
AFJ(KKI)*0*C 
ZMM K )=0.G 
ZMJUJU)*0.0 
ZMJET(K)«0.0 
Z A JM ( K ) *0.0 
DENAnZ-DENANI 
TAN2-TANI 
UANl*0.01 
PREAN2* PREAN l 
IF(NABCKKll.EC.l)K50»l 
IF (NAG(KKl) .EC.2)K60*1 
IF (K.LT.NSHCP)AFPRZ*AF2 
GCT0116 

r SUMMATI CN OF JET ENTHALPY. 

300 ZMJET(K)«AFJ(KK1)*( ZZCPT *GRAvCAGJ0ULC+LH(KK1 »♦ 

lZMJET(K) 

C SUMMATION OF AXIAL JET MOMENTUM 

ZAJM(K)-ZAJM(K)4AJM 

C SUMMATION OF JET MOMENTUM. 

ZMJUJ(K)«AFJ(KKU ♦UHCKKU4ZMJUJIK) 

116 CONTINUE 

117 RETURN 
EKO 


* 

01 SJ2AOO 
DISJ2410 
DISJ2420 
01 SJ2A30 
CISJ24A0 
DISJ2«50 
DISJ2460 
DISJ2470 
D I S j;>A80 
0ISJ24 90 
0ISJ250C 
0ISJ2510 
01 SJ2520 
0ISJ2530 
0ISJ2540 
0ISJ2550 
DISJ2560 
CISJ2570 
0ISJ258C 
0ISJ2590 
0ISJ2600 
CISJ2610 
0ISJ2620 
0ISJ26 30 
0ISJ26A0 
0ISJ2650 
0ISJ2660 
CISJ2670 
0ISJ2680 
01 SJ2690 
0 IS J2700 
0ISJ2710 
0ISJ2720 
0ISJ2 730 
0ISJ274C 
DISJ2750 
0ISJ2760 
OISJ2770 
0ISJ2780 
0 ISJ2790 
DISJ2800 
CISJ28 10 
DISJ2820 
0ISJ2830 
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SIBFTC PRT LIST 
C 

SUBROUTINE PRTEMP 


SUBROUTINE PRTEMP 

THIS SUBROUTINE SOLVES THE EQUATIONS FOR A STIRREO REACTION 
IN THE COMBUSTOR PRIMARY ZONE TO GIVE THE TEMPERATURE IN 
THE PRIMARY ZONE, 

IF THE SECONDARY HOLE FLOW SPLIT IS NOT SPECIFIED AN 
ITERATION IS PERFORMED ON THE AIR FLOW IN THE PRIMARY 
ZONE, SINCE THE FLOW SPLIT IS TAKEN TO BE A FUNCTION 
OF THE PRIMARY ZONE TEMPERATURE. 

NO SUBROUTINE IS CALLED BY PRTEMP 

ONE SUBROUTINE CALLS PRTEMP 
1. AIRFLO 

COMMON STATEMENTS 

C THIS SUBROUTINE USES COMMON BLOCKS WHOSE NAMES CONTAIN THE NUMBER 6 
C viz- B6 , B16, 667, B68, B126, 8167, B168, B678, B1678, 612678 


PRT 0010 
PRT 0020 
PRT 0030 
PRT 0040 
PRT 0050 
PRT 0060 
PRT 0070 
PRT 0080 
PRT 0090 
PRT 0100 
PRT 0110 
PRT 0120 
PRT 0130 
PRT 0140 
PRT 0150 
PRT 0160 
PRT 0170 
PRT 0180 
PRT 0190 
PRT 0200 
PRT 0210 
PRT 0220 
PRT 0230 
PRT 0240 


CGFM0N/B16/CDS (20* 15 ) »DPHS( 20* 15 ) * FLCV, IH, NABXI45) PRT 

1,NSP(20)»GXIS(20*15)*K4*K6»FIT , FIPH I, FI PS I, FIA,F I TAU, FID *F IE NTH PRT 

2 »SHAFST, FIFTPR, LCMFL*LCANILPRT 

3 , LCANL ,ICFTEL* LCFTL»LCPRTL*BETA» ASW, FF1Z(45) *AHD0ME,NSC0OP(20) PRT 

4 »LCPT AL.PAFRZ, NHTUC 50 ) » AF23A( 3 )» AF23B( 3 ) ,XAF23A(3) *XAF23B(3) PRT 

COMMON/ 868/ AF AN A (45 ) * AFANB(45) * AFFT( 45 )» AFPRZ»C2A(45 ) ,C2B C45) PRT 

2 »AFSYP,FARFT (45) *DENANA( 45) , DENANB( 45) PRT 

3»SAFTRA(45)*SAFTRB(45) »QTRA( 45 )» QTRB( 45 ) *REAAN C45) , REBAN (45 1 PRT 

4, TWAC45J,TWB(45) PR T 

COMM ON/ B1 68/ A ANA (45 ) , AANB( 45 ),CCA(45)*CCB(45 ) ,FHCR,NLAST PRT 

1 , KANHET ,LANHET ,PERCO,THIKFT PRT 

2, DANA(45),DANB(45) PRT 

COMMON/ 8678/ PREFT( 45 ) ,PREANA( 451 , PREANBC 45) » TFT( 451 , TANANA(45) ,TANPRT 

1ANB(45),AFJ1(50),UFT(45) PRT 

COMMON/B67/0ENFT (45) , EK17, EK19, EK20, EK16 PRT 


CUnnlm/ob (tf/KKcrl rucwnpita it « 

1ANB(45),AFJ1(50),UFT(45) PRT 

COMMON/B67/OENFT (45) , EK17, EK19, EK20, EK16 PRT 

1 ,C(50)*GXIA(50)»K»WUJ(50) PRT 

COMMON/8167/GASC,GRAVC,GJOULE, IH J( 50 ) ,XH( 50) ,NH PRT 

COMMON/ B1678/NSHCP*XCP( 45 ) , AFT (45), PI PRT 

1 , NHH(50),KJSN(45,6),HAU(50),CFTA(45),CFTB(45),NAB(50),NCODEA(45) PRT 

2 , NCOOEE(45),TZ P RT 

COMMON/ B 1267 8/ JT APE, I PRINT PRT 

COMMON/B126/AF2, TANIA, TAN1B, PAN1A,PAN1B 

1 ACA. ACR. oocnu.CTACT. 1 Rl . CTPRFF. PNTRA.P 


COMMON/B126/AF2, TANIA, TAN1B, PAN1A,PAN1B 
1,AFA,AFB,PREDM,STAGT,IBL,STPREF,PNTRA,PNTRB,0PHSNT,00ML0S 
C0MM0N/B6/PREAN1,PREAN2,DENAN1,DENAN2,TAN1,TAN2,AAN1,AAN2,AFANI, 
1 AFAN2 yUANl ,UAN2, ZAJM(45) ,ZMH(45) ,ZZCP,K1,K11, J,KSH,UANB(45) # 
2FARL,FAR,ZST0C,AFFT1,AFFTT1,TFT1,TFT2,HRRATE, 


VU mv iif wwr i f, n ^ r-m ^ , i# hi i i • r — • - » » — • 

1 AFAN2 yUANl ,UAN2, ZAJM(45) ,ZMH(45) ,ZZCP,K1,K11, J,KSH,UANB(45 
2FARL,FAR,ZST0C,AFFT1,AFFTT1,TFT1,TFT2,HRRATE, 

3 ZMJUJ (45) , ZMJET(45 ) ,CD,GX I,0PH1, PREFTl, 

4DENFTI ,OENFT2, AFT1, AFT2, AFFT2,UFT1,UFT2,FARFT1, 
5FARFT2,ENTHAL,LCMF,LCANI,LCAN,LCFTE,LCFT,K7,K13,K12, 
6AFSYPA,AFSYPB,AFSYIA,AFSYIB,LCPRT,LCPTA 
7, C 7(45), UANA{45)» ZMHA(2) ,GX1A,GX1B 

e.r < »C),WCD(50),WFFIZ(45),DPAFS»DP8FS,0PAES,DP8ES 
9,Ki(50) 

1 , a,b, d,e 

2 , K30, K40,K50,K60 


PRT 

PRT 

AFANl, PRT 

>), PRT 

PRT 

PREFT2 , PRT 
PRT 
PRT 
PRT 
PRT 
PRT 
PRT 
PRT 
PRT 
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1 

100 


COMMON/ B5867/XFS Ay XFSB 
DATA STATEMENT 
DATA NT0TP,PLIMIT/20,.l/ 
FORMAT STATEMENTS 
FORMAT C7H PRTEMP10F11.3) 


PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 


FORMAT (40H PROGRAMME STOPPED IN SUBROUTINE PRTEMP.y/35H ITERATION PRT 
1 LI MI T «LCPRTL* EXCEEDED.) PRT 

101 FORMAT (40H PROGRAMME STOPPEO IN SUBROUTINE PRTEMP../35H ITERATION PRT 
1LIMIT *l.CPTAL* EXCEEDED.) PRT 

3000 FORMAT ( IX y//// // 19H *** ERROR MESSAGE) PRT 

3001 FORMAT (68H ITERATION LIMIT OM TOTAL PRESSURE LOSS DUE TO HEAT RELEPRT 
1 


3005 


3006 


3007 


300 


301 

302 

400 


ASE EXCEEDED) 


PRT 



PRT 

CALCULATION OF FLAME TUBE TEMPERATURE AT 

SECONDARY HOLES. 

PRT 

SET LOCP COUNTER TO ZERO FOR FLOW SPLIT 

ITERATION 

PRT 



PRT 

LCPTA=0 


PRT 



PRT 

FUEL AIR RATIO IN THE PRIMARY ZONE. 


PRT 



PRT 

FARPRZ=FFIZ( 1 ) /AFPRZ 


PRT 

IF (NSHCP. EQ« 1 ) GOT03007 


PRT 

NSHCP1=NSHCP-1 


PRT 

D03006K=1 yNSHCPl 


PRT 

WFFIZ(K)=FFIZ(K+l)/(XCP(K4l)-XCP<K)> 


PRT 

FARPRZ*FARPRZ+FFIZ {K+l )/ AFPRZ 


PRT 



PRT 

TEST IF FUEL IS AVAILABLE 


PRT 



PRT 

ZSTOC=C .0867*1 l.*FHCR)/( l.*3.«FHCR) 


PRT 

IF (FARPRZ.GT.O.) GO TO 300 


PRT 

TFT11=STAGT 


PRT 

FARPRZ*0.0 


PRT 

FARL*0.0 


PRT 

GO TO 310 


PRT 



PRT 

STOICHIOMETRIC FUEL AIR RATIO. 


PRT 



PRT 

CONTINUE 


PRT 



PRT 

TEST FCI» rl: L AIR RATIO GREATER THAN STOICHIOMETRIC. 

PRT 

YES PUT EC’JAL TO STOICHIOMETRIC 


PRT 

NO CONTINUE. 


PRT 



PRT 

IF (ZSTCC-FARPRZ) 301«302y302 


PRT 



PRT 

CALCULATE FUEL AIR RATIO REMAINING. 


PRT 



PRT 

FARL-AMAX1C0.*FARPRZ-ZST0CI 


PRT 

FARPRZ n ZSTOC 


PRT 

AF RPR Z« 1.0/FAR PR Z 


PRT 

GO TO 400 


PRT 

FARL-0.0 


PRT 

AFRPRZ*1.0/FARPRZ 


PRT 

TFT1*STAGT 


PRT 

FARFT (NSHCP)"FARPRZ 


PRT 



PRT 


0600 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0680 

0690 

0700 

0710 

0720 

0730 

0740 

0750 

0760 

0770 

0780 

0790 

oeoo 

0810 

0820 

0830 

0840 

0850 

0860 

0870 

0880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

0960 

0970 

0980 

0990 

1000 

1010 

1020 

1030 

1040 

1050 

1C60 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 
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CONVERT FARl TC A FUEl-CAS 3ATIC PR T 

PPT 

FARL*FARL/(1. + FARFT(NSHCP) ) PR T 

PR T 

SET INITIAL GUFSS AT TEMPERATURE TO BE 30C0 DEG. R. PR T 

PR T 

OEIT-TCCO.O PP 7 

TFT1 1 *C fcLT PUT 

PR T 

SET LCCP COUNTER TO ZERO FOR TEMPERATURE ITERATION PRT 

PR T 

LCPRT = C PRT 

PRT 

CALCULATE HEAT ADOITICN. PRT 

PRT 

303 QO=AF RFP.Z PRT 

CD=1 • / AFR PRZ PRT 

Dll=QP*(.2419*(TFTl-459.4 I U - t '*(TFTl« *2-459.4**21/2 . + 17.9 PRT 

1*1.E-9*(TFT1**3-459.4*«3)/3.-2.7h -■ - 12*(TFTl**4-459,4**4)/4. ) PRT 

D12=(CE + 1. )*( ( .2419+0.103*0: )*(TF [ 11-4 59.4)- { .818 1-22. 6*Q0 )* 1 . E- 5*PRT 
1 (TFT1 1**2-459. 4**2 )/ ?.+ ( I"'. 9 i-29. 6*00* l.E-9*(TFTl 1**3-459. 4**3) / PRT 
I3.+(— 2. 743 +0.3 5*CD)*( TFT 11**4-45 9. 4**4 )/4.*l.E- 12) PRT 

ERRUR=FLCV+D11-D12-3.0*1.E-26«0E*TFT11**7.5 PRT 

DELT= 0.5* CELT PRT 

IF(IPRINT.E0.1)WRIT <~,1)TFT11 PRT 

PRT 

TEST ERROR IN COMBUSTION EQUATION FOR CONVERGENCE OF TEMPERATURE PRT 

PRT 

305 IF (ABS(ERRCR)-F[FTPB)307, 307, 306 PRT 

306 IF (FRRCR) 700*307*701 PRT 

PRT 

MODIFY TEMP. AND RETURN. PRT 

PRT 

700 TFTll=TFTll-DELr POT 

GC TO 500 PRT 

701 TFT11 = TFT11+DFLT PRT 

PRT 

INDEX LCCP COUNT. .< PRT 

PRT 

500 LCPRT = LCPPT+i PRT 

PRT 

TEST LCCP COUNT . PRT 

PRT 

I F (LC PPT-LCPPT L ) 303*2 3,6C1 PRT 

6C1 CONTINUE PRT 

WRITE ( JTA F L- , r j > PRT 

WRITEt JTAPE,] N n ) PRT 

PRT 

TEST K4=0 Flow SPLIT NOT SPECIFIET. PRT 

K4=l FLOW SPLIT SPECIFIED. PRT 

PRT 

307 IF (K4 ) 308 ,30 ’ * 3 10 PRT 

PRT 

CALCUL ATI CN I F Flo- SPLIT. PRT 

PRT 

308 AFPRZZ*AFPRZ PRT 

PRT 

INDEX LOOP COUNT . PRT 

PRT 

LCPTA = LCPT A+ 1 PRT 

PRT 


1210 
1220 
1230 
1240 
125C 
1260 
1270 
128C 
1 29C 
1300 
13 1C 
1320 
1330 
1340 
135 C 
136C 
1370 
1380 
1390 
140C 
14 1 C 

14 PC 
143C 
1440 
1450 
1460 
147C 
I48C 
149C 
1500 

15 1C 
152C 
1 53C 
154C 
1 5 5 C 
156C 
157C 

15 DC 
159C 
1600 
1610 
1620 
163C 
164C 

16 50 
1660 
1670 
168C 
1690 
170C 
1710 
1720 
1730 
174C 

17 5C 
176C 
1770 
178C 
179C 

1 see 

181C 
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TEST LCOP COUNTER 

IF(LCPTA-LCPTAL)350,350,351 
351 CONTINUE 

WRITE (JT A PE? 3000 ) 

WRITE (JTAPEf 101) 

GO TO 310 

250 AFPRZ*AFPRZ-AFS %, PA-AFSYPB 

AFSYPA-ZMHA(i)«0.5*SIN(GXlA)«SQRTtTANANACNSHCPI/TFTin 
AFSYI A*ZMHA ( 1 ) -AFSYPA 

AFSYPB«2MHA(2)*0.5*SIN(GX1B)*SQRT(TANANB(NSHCP)/TFT111 

AFSYI B«ZMHA(2I-AFSYPB 

AFPRZ-AFPRZ+AFSYPA+AFSYPB 

TEST CHANGE IN FLOW SPLIT THROUGH SECONDARY HOLES 

IF (ABS (AFPRZZ-AFPRZ)/AFPRZZ*100«0-PAFRZ >310*310*3005 

TOTAL PRESSURE LOSS DUE TO HEAT RELEASE IN THE PRIMARY ZONE 

310 DENFT ( 1 )*PREFT<1 I/STAGT/GASC 

UFT(i )«AFPRZ/AFT(NSHCP)/OENFT( 1) 

PREFT ( 2 ) “PREFT (1 ) 

PLAST*PREFT(2) 

D03105I-1.NT0TP 

DENFT (2 )»PREFT(2)/(TFTH*(53.32+1.725*FARPRZ-l,49«FARPRZ*«2n 

UFT(2)«AFPRZ/AFT(NSHCPI/DENFTC2) 

1*(1.«-FARPRZ) 


PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 


PREFT (2)«PREFT(l)*AFRPRZ/AFT<NSHCP)/32.*CUFTCl>-UFT(2l«tU4FARPRZ|PRT 
I) PRT 

IF (ABS (PREFTC2 )“PLAST) •LT«PLIMIT IGOT03106 PRT 

PLAST-PREFTI2) PRT 

IF(IPRINT.EQ.1)WRITE(6,1)PREFT(2) PRT 

3105 CONTINUE PRT 

WRITE (JTAPE, 3000) PRT 

WRITE ( JTAPEf 3001 ) PRT 

3106 CONTINUE PRT 

PRT 

FLOW PARAMETERS AT THE SECONDARY HOLES PRT 

SET FLCW PARAMETERS UP TO THE SECONDARY HOLES TO THE SAME VALUES PRT 

PRT 


1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
J: <10 
2220 


00 20 I-l.NSHCP 
DENFT ( I) “DENFT (2) 

UFTII )*UFT (2) 

AFFT( I )“AFPRZ«(l*f FARFT(NSHCP) ) 

TFT(I)»TFT11 
PREFT ( I ) "PREFT (2 ) 

20 CONTINUE 
502 TFT2-TFT11 

PROPORTION JET PARAMETERS ACCORDING TO FLOW SPLIT 

X-AF$YIB/(AFSYIB*AFSYPB> 

Y» AFS Y I A/ ( AFSY IA+AFSYPA ) 

SET FLCW-SPLIT INDEX 

IF (K4) 5001 *5001*5002 
5001 XFSA»Y 
XFSB-X 
GO TO 5003 


PRT 2230 
PRT 2240 
PRT 2250 
PRT 2260 
PRT 2270 
PRT 2280 
PRT 2290 
PRT 2300 
PRT 2310 
PRT 2320 
PRT 2330 
PRT 2340 
PRT 2350 
PRT 2360 
PRT 2370 
PRT 2380 
PRT 2390 
PRT 2400 
PRT 2410 
PRT 2420' 
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>002 XFSA-l.-SHAFST PRT 2430 

XFSB-l.-SHAFST PRT 2440 

>003 CONTINUE PRT 2450 

2NHINSHCPJ-AFSYIA4AFSYIB PRT’ 2400 

ZM JET ( NSHCP)* A«Y+X«ZH JET C NSHCP ) PRT 247C 

ZAJM(NSHCP)-E*Y*X*ZAJM(NSHCP) PRT 2480 

ZMJUJt NSHCP) -B«Y<»ZMJUJ( NSHCP )«X PRT 24V9 

IF (I PRINT«GE*1 )WRITE (6f 1 ) AFPRZt FARPRZ?ZSTDC«FARlt (FFIZ (K) «K*l»NSHCPRT 2500 

lP) t (UFFIZ(K)*K>l t NSHCP) PRT 2510 

RETURN PRT 2520 

END P*T 2530 
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UBFTC EGAN LIST 

SUBROUTINE eouan 


THIS SUBROUTINE SOLVES THE EQUATIONS OF MOMENTUM. CONTI NUI TV, 
STATE* ANO ENTHALPY FOR THE ANNULI I OF A C0M9LST0R. 


SUBROUTINES ARE CALLED 


EQUAN 


SUBROUTINE 
l. AIRFLO 


CALLS EQUAN 


this subroutine uses common 
VIZ” 86 * ei6, 867, B68 v 


BLOCKS WHOSE NAMES CONTAIN THE 
8126, B1 6? * 8168, 8678, 81678, 


NUMBER 
81267 8 


CCMM C N/P16/C0S(20,15),OPhSI20,15),FLCV,IH, NABX (65 ) ECAN0170 

1,NSP(20),6XIS(2C,15) ,K* ,K 6 ,F IT, FIRM ,F IPSI ,F I A, F I TAl,FID,FIENTH ECAN018C 

2 , SHAFST • FIFTPR, LCMFL ,LCANILE CANO 190 

3 »LC ANL, LOFT EL, LOFT L, LCPRTL »BETA»ASN*FFIZ(65), AHCOME ,NSCOOP (20) ECAN0200 

6 , LCPT AL , PAFPZ , N"'TU(50 )*AF23A(3)«AF23B(3)« XAF 23A( 3),XAF238(3) ECAN0210 

CcMMCN/868/ AFANA( 65 )*AFANB(65),AFFT(65),AFPRZ*C2A(65) ,C28(6S) ECAN022C 

?,AFSYP,FARFT|65) ,OENANA( 65 ), OENANB 1 65 ) EGAN0230 

3,$AFTRA(65)*SAFTRB(65 ) ,QTRA( 65 ),QTRB(65) ,R EAAN ( 65 1 , REBAN (651 ECAN0260 

6,TV»A(65) ,TwB(65) ECAN0250 

CCMMCN/8168/ A AN A ( 65) ,AANB( 65 ),CCA( 65) ,CCB(65 1 ,FHCR,NLAST EQAN0260 

l ,KANHET,LANHET,PERC0,TH1KFT ECAN0270 

2,0ANA(65),0ANB(65) ECAN0280 

0CNNCN/B67/DENFT(65),EK17»EK19»EK2C* EK16 ECAN0290 

1 ,C(5C),CXIA(50 ) ,K,UUJ ( 50 ) ECAN03C0 

CCMM0N/B167/GASC.GRAVC, GJOULE, IHJ ( 50) , XH< 50 »NH EQAN0310 

CCMMCN/B678/PREFT(65),rREANA(65),PREANB( 65) ,TFT(65 1 ,TANANA (65) .TANEQAN0320 

1 AN0(65) ,AFJ1(50),UFT(65) ECAN0330 

CCMMCN/B1678/NSHCP,XCP(65), AFT(65) ,PI £CAN036C 

1,NHH(50) ,KJSN(65,6), HAU( 50 )»CFTA(4E? ,C?TB(65 ) , NAB ( 5C ) , NCCOEA (65) ECANC350 

2 , NCCDE 8 (65 ) ,TZ EQAN0360 

CGMMCN/R12678/JTAPE, IPRINT ECAN0370 

CCMM0N/B126/AF2, TANIA, TAN1B,PAN1A,PAN1B E'N0380 

l f AFA|AFR,PREOM,STACT, IBL, STPREF ,PNTR A, PNTR3, OPHSNT ,OOMLOS ELANC390 

C CMMCN/B6/PRE AN1 ,PREAN2, OENAN 1 ,DENAN2, TAN 1 ,TAN2 » AAN1 ,AAN2 ,AFANi , ECAN0600 
IAFAN2,UANI,UAN2,ZAJM(65) 9 ZMH(45),ZZCP,K1 ,KU , J, XSH,LANB(6S) , ECAN0610 

2FARL,FAR,ZST0C, AFFTl.AFFTTl, TFT l, TFT2,HRRATE, ECAN062C 

3ZMJUJ(65),ZMJET(65) ,C0 ,GX I ,OPH 1, PREFTUPREFT2, EQAN0630 

606NF T1 ,0CNFT2,AFT1, AFT2, AFFT2,UFT1,UFT2,FARFT1, ECAN0660 

5FARFT2,ENTHAL,LCMF,LCANI ,LCAN, LCFTE.LCFT ,K7,K13,K12, ECAN0650 

6AFSYPA,AFSYPB, AFSYIA, AFSY IB.LCPRT , LCPTA ECAN0660 

7.02(65), UANA( 65 ), ZMHA( 2),CX1A,GX1B ECANC670 

6,0PH(^0),kCC(50),WFFIZ(65) , CPAFS, OPBF S.OPAES , CPBES ECAN068C 

9,RC(50) ECAN0690 

1, A,B,C,E ECAN050C 

2 , K30 ,K60, K50 ,K6C ECAN051C 

C CMMCN/ BZERC/FRICFA(65 ), FR ICFB( 65) ,DUM( 510 EQAN0520 

COMMON/ BUN IK/ CUMAE (65 ) , CUMBE (65) ECANC530 

ECAN0560 

: FORMAT STATEMENTS ECAN0550 

ECAN0560 

15 FORMAT ( 1H0 10F11 .6 ) ECAN0570 

3000 FORMAT ( IX,////// 19H ERROR MESSAGE) EQAN0580 

8765 FORM ' (6H0EQUAN10F11.3/ ( 6X10F11.3) ) EQAN059Q 


non non on non* 


SCLUTICN OF ANNUL 1 1 EQUATIONS. 


AA23*0.0 

TEST KANHET TO 
IF IT HAS NOT, 


SEE 

SET 


IF HEAT SUBPROGRAM 
HEAT PARAMETERS TO 


ECAN 06 OO 
ECAN0610 
ECA^620 
ECANC630 
ECAN0640 

HAS BEEN CALLED EQAN0650 

EITHER TYPICAL VALUES OR ZERECAKC660 

ECAA0670 

IF (KANHET. NE.0IG0TC6O0 
TRAN=C*0 
PERCC*0.0 

V=3.057E-348.607E-5*TANW.279E-8*TAN1*P24 2.9C8E-12*TANI*43 
IFtKl.EQ.O )REAAN(K)*3€00.P0ANA(K l*AFANAIKI /V/AANAIK > 
IF(KI.EC.1)REBAN(K).3600 .*DANBU)*AFANBIK)/V/AAnB(K) 


C2(K)»0.0 
TWA(K»*0.0 
TVIBI K )«0.0 
CTRA(K )«0.0 
QTRB(K)«0.0 
AAN3«(AANl4AAK2)/2. 

600 CCNTINUE 

TEST INNER OUTER ANNULUS* 

IFIKDlia, 118,119 

INNER ANNULUS 

118 CIR-CCA(K)+CFTAIK) 

CIRFT=CFTA(K) 

FRICTION FACTCR 

F R ICF«. 00354. 264 *REAANtK )♦*(-. 42) 

FRI CFA (K) *FR ICF 

TRANSPIRATION CCOLING 

ECAN0970 

SAFTRA(K)*(PREANA(K)*42-PREFT(K)**2)*PERC0*3 6CC./3.32/ThIKFT/THAUECAN09 8 C 


ECAN0680 

ECANC69C 

ECANCTCO 

ECAN0710 

ECAN0720 

ECAN0730 

ECAN074C 

ECAN075C 

ECAN0760 

ECAN0770 

EQAN0780 

ECANC790 

ECAN0800 

ECAN0810 

EQAN0820 

E6AN0830 

ECAN08A0 

ECAN0850 

ECAN0860 

ECANC870 

ECAN0880 

ECANC89C 

ECAN0900 

ECANC910 

ECAN0920 

ECANC930 

ECAN0940 

EQANC950 

ECAN096O 


♦♦ INCLUDE CARDS EQAN0991 AND 0595 ** 

1) /(3.057E-348.607E-5*TWACK )-2. 279E-8*TNA(K )**242.90«E- 12*T«A (X) 
2**3) 

TRAN=SAFTRA(K)*CFTA(K)*tXCP(J)-XCP(K)) 

GC TO 200 

OUTER ANNULUS 

119 CIR=CCB(K)4CFTB(K) 

CIRFT=CFTB(K) 

FRICTION FACTCR 

FRICF« .0035*. 264*RE8AN(K)**( -.42) 

FRICFB (K )*FR ICF 


E0AN099C 
ECAN0991 
ECAN0995 
6CAN1000 
ECANlolO 
ECAN1020 
ECAN1030 
FCAN1040 
ECAN1050 
ECAN1060 
EQAN1070 
ECAN1080 
EQAN1090 
EQAN1 ICO 
EGAN1110 
ECAN1I20 
ECAN1130 
ECAN114C 


TRANSPIRATION CCCLING 

* 

SAFTRB ( K )* ( PREANB(K) **2-PR£FT(x )**2 )*p6RCC*36CC. /3.32/THIKFT/TWB (KEQAN115C 
** INCLUOE CAROS EQAN1161 AND 2165 ♦* ECAN1160 

l)/(3.057E-348.607E-5*TWBIK)-2.279E-8*THBtK)6*24 2.908E-l2*TVBUO ECAN1161 
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2**3) 

TRANxSAFTRb(K)*CfTE(K)*(XCP(J)-XCP(K)) 
GC TC 201 
CO 2021*1,3 


BLEED AIR FOR INNER ANNULUS 


ECANU65 
ECAN1170 
EQAN1180 

200 CO 2021-1, 3 ECAN1190 

ECAN1200 
ECAN1210 

ECAN1220 

IF(XAF23A(I).GT»XCP(K) • AND «XAF23A( I ) «LE. XCP( J )♦ 1 *E-3 ) AA23-AA23*AF2EC AM230 
1 3 A ( I > ECAN1240 

202 CONTINUE ECAN1250 

GCTC203 ECAN1260 

201 CC 204 1*1,3 EQAN1270 

EQAN1280 

: BLEED AIR FOR OUTER ANNULUS ECAN1290 

ECAN1300 

IF(XAF23B( I).GT.XCP(K).AND.XAF23B(I).LE.XCP{ J )♦ l.E-3 ) AA23*AA23*AF2ECAN 13 1C 


138(1) 

204 CONTINUE 
203 CONTINUE 
F-NLAST 

: TEST TOTAL FLOW FRO* ANNULUS 

120 I F ( AA23+TRAN*£PH(K 1-AFAN1) 12*, 124,125 


SF7 


IF TOTAL FLOW IS NEGATIVE, 

125 AFANI*- AF2/F 
AFAN2*AFAN1 
DENAN2-0ENAN1 
T AN2-TAN 1 
UAN2-C.C01 
PREAN2=PREAN1 
CONTINUE * 

GO TO 82 T 


C TOTAL-PRESSURE LOSS DUE TO SuCDEN 
C PASSES ACROSS AIR ENTRY HOLE 


ANNULUS PARAMETERS AT NEXT 


EXPANSION OF ANNULUS AIR AS IT 


124 DPE=0. 

1F(K1.EC.0.ANC.NC0CEA(K).EQ.1)G0T01242 
IF (Kl.EC.l. ANC.NC0CEB(K).EQ.1)G0T01242 
AA1=UAN1/SCRT(1.4*TAN1*GASC*GRAVC) 

IF( AAI.GT..85IAA1-.85 

DPEXP 1.85* (ZFH(K) /AFANI/ 1.36) **(!•/(. 5*. 242*AA1**2. 22)) 

IF(DPEXP.GT.1.2)DPEXP*1.2 

DPE-D0NANl*UANl**2/2 ./GRAVC*OPEXP * 

DPEXO=CPE-OENAN1*UAN l**2/2./GRAVC*( 1.- U.-ZMHlK ) /AFANI )**2 ) 
IF ( I PRINT.nE • 1 JG0T08755 

WRITE (6, 8765 )PREAN1,AA1, DPEXP, 0PAE,0PEXQ 
8 755 CONTINUE 
» 

CALCULATE GAS PROPERTIES DOWN-STREAM OF THE EXPANSION 

ZZCP»0.2121*5.06E-5*TANi-l3.lE-9*TANi**2*2.lE-l2*TANIA*3 

AFZ-AFANl-ZPH(K) 

0Q»53.3*1.4/O.4*GRAVC 
TNRT«TANl*UANl**2/2./DQ 
PNRT*PREAM* (TNRT/TAN1 )*♦( 1.4/0. 4) 

PNRT*PNRT-OPE 


ECAN1320 
ECANl 330 
ECANI340 
E0AN1350 
ECAN1360 
ECAN1370 
ECAN1380 
ECANI390 
ECAN1400 
ECAN1410 
EQAN1420 
ECANK3C 
ECAN144C 
ECAN1450 
EC AN1460 
EQANI470 
ECAMA80 
ECAN1490 
ECAN1500 
ECAN1510 
ECAM52C 
EQAN1530 
ECANI540 
ECAN1550 
EQAN1560 
EQAM570 
ECANl 580 
ECAN1590 
ECAN1600 
EOAM6IO 
ECAN1620 
ECAN1630 
EQAN1640 
ECAN1650 
ECAM660 
ECAN1670 
E0AN1680 
ECAM690 
E6AN1700 
ECANl 7 10 
ECAN172Q 
EGAK1730 
EGAM740 
ECANl 750 



ASTAR=aFZ*SCRT(DQ*TNRT*0.4)*1.2**3/PNRT/GRAVC/U4 

AAS=AAM/ASTAR 

CALL GASTRL (AAS«TTCtPPOfMNZ f It I8L*MNX*HNV> 

PREANl=PPO*PNRT 
TAM = TTC*TNRT 
OENANl=PREANl/GASC/TANl 
UAN1*AFZ/DENAN1/AAK1 

1 242 IF(KJ.NE.O)GOT01243 
CFAE*DPE/144. 

OUpAE ( K )*0PAE$ 

CPAES=CPAES40PAE 

GCTC1245 

1243 DPB6=0PE/144. 

UUPBF ( K )*0PEES 
dpbes=dpbe$*dpbe 

CALCULATION OF CONSTANTS FOR ANNULUS EQUATIONS. 


i AFAN2=AFAM-ZPH(K)-TRAN-AA23 
EK2=AFAN2 
ARC=AAN2/ AANl 

ZZCP=0.2121+5.06E-5*TANI-13.1E-9*TANI**24 2.IE-12PTAM»P3 
EK3=(TAM*ZZCP*GRAVC*GJCULE40.3*UANl**2)*EK2 
l4C2(K)*CIRFT*GR/VC*GJ0ULE*(XCP(J J-XCPIlOl 
AAN4=2.*AAN2/(ARC4l.) 

EK1=PREAN1*GRAVC*AAN44UANI*EK2 ' 

EK4=PREAN1/{DENANI*T AN 1 )*GRAVC 

D1=(FRICF*0.5*CIR*C£NAn l *( xcp cji-xcpikji* GRAVCPCJOULCP 

1 Ek 2* EK4*1 • )*UANl**2*URQ4l.)/2. 

C2=.5-ZZCP*GRAVC*GJOULE /EK4*(ARQ4l. 1/2. ECAN2050 

D3=ZZCP*GRAVC*G JOULE* EKl/t EK2*EK4)*(ARQ*1. J/I.-Ol ECAN2060 

D4=FK3/EK2 ECAN2070 

ECAN2C80 

ANNULUS VELCCITY AT NEXT CALCULAT ION^POI NT ECAN2090 

ECAN2100 

IF (( 03**244. *02*04 ).LT.O.)uAN2*UANl ECAN2110 

IF( { 03**244.*C2*C4).GE.0.) ’ ECAN2L2C 

1UAN2=(-034SQRT(C3**244.*D2*04))/(2.*02J ECAA2130 

ECAN2140 

CALCULATE PRESSUREfCENSITY .TEMPERATURE ANC AIRFLOW. ECAN2150 

ECAN2I6C 

\ PR FAN 2= ( EK1-U AN2* EK2-FR ICF *.5*CIR*CENAN1A CXCPIJ )“XCPI K ) )*UAN1**2I /EC A N2 170 
1GRAVC/AAN4 ECAN2180 

DENAN2*AFAN2/ (AAN2*UAN2I ECAN2190 

TAN2=PREAN2*GRAVC/(0ENAN2*EK4) ECAN2200 

IFIIPRlNT.EC.il 6CAA2210 

1 WRITE 16,8765 JUAM.PPE AN l,DENANl* AANl, AAN2,AFAN 1, ZNHIKJ ,TRAN, ECAK2220 

lAA23tTAM»FPICF»CIR»ZZCP»C2(K)»EKl*EK2»EK4»Dl*D2*D3*04 ECAN2230 

2 » UAN2* PREAN2 * AFAN2* 0ENAN2*TA(I2 EQAN224C 

CUMBE(K4l)«CPBES ECAA2250 

IF(Kl.EC.l) GC TO 3654 EQAK2260 

DUHAE(K4I).CPAES ECAN2270 

ECAN22B0 

CALCULATION OF ANNULUS PARAMETERS AT CALCULATION POINTS HAVING NO EQAN2290 
HOLES ECAN2300 


...* 

1.4 ECAK1760 

ECAN1770 
ECAN1780 
ECAN1790 
EQAM80C 
E CAN1B10 
ECANI820 
EQAN1830 
ECAM840 
EQAN1850 
ECAN1 860 
EQAN1870 
ECAM880 
EGAM890 
ECAK1900 
ECAM91C 

• ECAN192C 

ECAN1930 

ECAN1940 

ECAN195C 

ECAN1960 

12*TAK1**3 ECAAI970 

ECAM98C 
ECANI990 
EGAN2C00 
EGA F 20 10 
ECAN2Q20 

GRAVC*CJQULE*ZZCP)/(ECAN2030 

EQAN2040 


IFIK-NSHCP.GT.0)GCTC50I 

N»K4l 

0C5O2 I=Nj J 

xi«ixcp<n-xcp(Ki)/(xcp(ji-xcpun 


* * * ...» 






IF(KL.EQ.1)G0TG503 

PRE ANA ( I )«X1* ( PREAN2-PREAN ll+PREANl 

tANAU )*XI*(UAN2-UAM)+UAN1 

TANANAU)*X1«(TAN2-TAN1)4TAN1 

OENaNA ( I )*X 1*( CENAN2-DENAN I l+CENANl 

AFANAI I)-AFANA(K) 

C M INCLUDE CAROS EQAn2421 ANO 2425 *♦ 

DUNAEU)«DPAES 
PEAAn(I)*RI AAMK) 

GCTC502 

W1 PREANe ( I l*Xl* (PRfcAN2-PREAN 1I4PREAN1 
UANE (!) «X1 * (UAN2-UAN1) +UAN l 
TANANB (I )«XI*(TAN2-TANi )4T AN1 
CBNAN0I U»Xl*( CINAN2-DINAN H+OBNAN 1 
APANBU )«AFAN8(K) 

C ♦ ♦ INCLUDE EGAN2491 AND 2495 *» 

ouMBEU)*opees 

REBAN ( I)»REBAn(K) 

502 CONTINUE 
501 CONTINUE 

IF(K-NSHCP)300, 301,301 

300 CONTINUE 

C F CRN PRIMARY ZONE A iR FLOW 

AFPRZ* AFPRZ+ZPHCK ) 

301 CONTINUE 

C ** INCLUCE CAROS EQAN2591, 2593, AND 2597 *♦ 

82 CONTINUE 

REAAN(NLAST)»REAAN(K) 

REBAN ( M. AST )* REE AN ( K ) 

RETURN 

END 


EGAN236( 
ECAN237( 
ECAN238( 
ECAN239< 
ECAN240( 
ECAN24K 
ECAN242< 
ECAN2421 
EQAN242' 
ECAN243( 
ECAN244< 
ECAN245I 
6CAN246I 
ECAN247I 
ECAN248I 
ECAN249' 
EGAN249 
EGAN249 
ECAN250 
ECAN251 
EQAN252 
ECAN253 
E0AN254 
ECAN255 
EQAN256 
ECAN257 
E0AN258 
ECAN259 
EQAN259 
FGAN259 
EGAN259 
ECAN260 
ECAK26 1 


YOUR CARO TOTAL IS 
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BFTC EQFT LIST 

SUBROUTINE EQUFT 

SUERCUTINE E (Uf T . 

THIS SUBROUTINE SOLVES THE EQUATIONS OF MBMENTLN.CCNTlNUI TV, 
STATE, AND ENTHALPY FOR A COMBUSTOR FLAME TUBE. 


TWC 


SUBROUTINES ARE CALLED BY EQUFT. 

1. JETMIX - FOR JET PARAMETERS 

2 . HEATAC - FOR ENTHALPY AODEC TO FLAME 

TUBE AIR eY BURNING FUEL • 


ONE 


Subroutine 

i. AIRFLO 


CALLS EQUFT 


THIS SUBROUTINE USES COMMON 
VIZ- 86, B16 , B67 , 868, 


BLOCKS WHOSE NAMES CONTAIN THE 
B126, B167, 0166, B678, B1678, 


NUMBER 

B12678 


ECFTCCIO 
ECFT0020 
ECFT003C 
ECFTGCAC 
ECFT0050 
ECFT0060 
ECFT0070 
EQFTGC8C 
ECFTC090 
EQFTOIOO 
ECFTOl 10 
ECFT012C 
ECFT0130 
EQFT0140 
ECFT015C 
ECFT0160 
ECFT0170 
ECFT0180 
ECFT0190 
ECFT0200 


COMMON/ 6 16 /COS (20, 15 l»DPHS (20, 15), FLCV,IH, NABX(45) 

1 , NSP( 20) ,GX I S { 20, 15)»K4»K6,FIT,FIPHI , F IPSI,F I A, FI TAU' ,F ID ,F IENTH 

2,SHAFST, FIFTPR, LCMFL,LCANIIECFT0210 

3 , LCANL,LCFTEL »LCFTL » LCPRTL »BETA» ASW, FF IZ(45) ,AHCOME ,NSCOOP (20) ECFT0220 

4 , LCPT AL.PAFRZ ,NHTU(50), AF23A (3 ) , AF23B( 3 ) »XAF 22A( 3 ) ,XAF23B (3) ECFT0230 

CCMMCN/B68/ AF ANA(45 ) , AFANB (45),AFFT( 45 ), AFPRZ, C2A( 65) ,C2B (65) EQFT0240 

2, AFSYP,FARFT(A5),CENANA(A5 ),CENANB(45) EQFT0250 

3 » SAF TR A(45 ) ,S AFTRB (4 5), QTR A( 45) ,QTRB (45 ) ,R EAAN (45) «R£BAN(45) ECFT0260 

4,TWA(45),TW8(45) ECFT0270 

CCMMCN/B168/AANA(45),AANB(45),CCA(45) ,CCB( 45 ) ,FHCR,NLAST ECFT0280 

1,KANHET,LANFET,PERCC,THIKFT ECFTC290 

2 » D AN A ( 45 ) , CANB ( 45 ) ECFT0300 

COMMON/ B67 /CENFT (45 ) » EK 17* EK 19, EK2C, EKl6 ECFT0310 

1 ,C(50),GXIA(50 ) ,K, WUJ ( 50 ) ECFT032C 

CCMMCN/B167/G ASC,GRAVC, GJOULE, IHJ ( 50) ,XH( 50) ,NH ECFTC330 

CCMM0N/B678/PREFT(45),PREANA(45) ,PRE ANB( 45)*TFT(45) ,T ANANA (45) , TANE CFT0340 
1ANB(45),AFJ1(50),UFT(45 ) ECFT0350 

CCMMCN/B1678/NSHCP,XCP(45) ,AFT(45),PI ECFT0360 

1 , NHH ( 50 ) ,K JSN (45, 6) V HAU( 50),CFTA(45) ,C FTB ( 45 ) ,NAB ( 50 ) ,NCOOEA( 45) EQFT0370 

2 , NCCDEB(45 ) , TZ EQFTC38C 

C C MMON/ B 1 2678/ JT APE, (PRINT EQFT0390 

CCMMCN/ei 26 /AF 2 ,TANlA,TANlB,PANlA,PANlB ECFT0400 

l,AFA,AFB,PR£OM,STAGTt I BL ,STPREF, PNTRA, PNTRB, OPHSNT ,COMLOS ECFT0410 

CCMMON/06/PRE AN1, PREAN2 »DENAN1,DENAN2, TANl ,T AN2 ,AAN1, AAN*2, AFAN1 , EQFT0420 
1AFAN2,UAN1,UAN2,ZAJM(45 ),ZMh(45),ZZCP,Kl«Kll . J, KSH, LAKBI 45) , ECFT0430 

2FARL,FAR,ZST0C,AFFTl,AFFTTi,TFTl,TFT2,HRRATE, ECFT0440 

3 ZM JU J ( 45) , ZM JET ! 45) , CC , GX I ,OPH 1, PREFTl,PREFT2* EQFT0450 

4 CENFT l ,DENFT 2, AFT J. ,AFT2, AFFT2, UFTl ,UFT2,FARFT1 , EQFT0460 

5FAHFT2,ENTHAL,LCMF,LCANl»LCAN,LCFTE,LCFT,K7,K13*K12 t EQFT0470 

6AFSYPA,AFSYPB,AFSYIa*AFSYIB,LCPRT,LCPTA ECFT048C 

7,C2(45), UANA (45 )» ZMHAI 2 ),GX 1A ,CX1B EQFT049C 

8,0 PH (50) ,WCC(50)»WFFIZ(45),DPAFS,0PBFS,DPAES,0PBES ECFT05C0 

9,RC(50) ECFT0510 

1 , A,b,D,E ECFT0520 

2 , K30 ,K40 ,K50, K60 ECFT0530 

ECFT054C 

2 FORMAT (6H ECUFT *9E 12#S/( 6X,9E12.3 ) ) EQFT0550 

3 FORMAT (IH05F12. 3) ECFT0560 

4 FORMAT (1H0I10,2F12«3) ECFT057C 

000 FORMAT (1X,//////19H *** ERROR MESSAGE) ECFT0580 

000 FORMAT (38H TEMPERATURE IN *EQUFT* LESS THAN ZERO EQFT0590 
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C SET ITERATION LOOP COUNTER TO ZERO 
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LCET6-0 
K8*0 
K7*0 
D 10*0. 

D7*0.C 

SETTING OF FLAME TUBE EQUATION VARIABLES. 

AF Tl* AFT IK l 
AFT2=AFT (K+I ) 

PREFT1*PREFTIK» 

UFTl*UFT ( K ) 

UFT2«UFTI 
DENFT1*DENFT ( K } 

TFT1=TFT(KI 

TFT2=TFTI 

AFFT1«AFFT<K) 

AFFTTl*AFFTl 

ENTHAL«1.0 

UPDATE JET PARAMETERS FROM JETMlX 

EK16C*EK16 
EK17C=EK17 
EK19C*EK 19 
EK200*tK20 

IF(NSHCP.EQ.K)GO TO 1 
ZMJET<K)*A+ZMJET(K) 

ZMJUJI K)*B+ZMJUJ(K) 

ZMH( K I «C+ZMH ( K 1 
ZAJM(K)*E+ZAJM(K) 
l CONTINUE 

CALCULATE UNBURNT-FUEL TO GAS RATIC 

FARL«FARL+rFIZ(K+l)/AFFTl 
IFUPRIAT.NE. DG0T08757 

WRITE! 6*2) FARFT(K)»ZAJM(K) ,ZMF | K ) , ZMJUJ IK) #ZM JET (K ) ,EK16 *£K17 
WR IrE(6»2)AFTl f PREFT1»UFT1»DENFT1»TFT1»AFFT1*EK19 
8757 CONTINUE 

CALL SUBROUTINE JETMIX TO OBTAIN EK16* EK IT ,EK19, AND EK20 
I F (K30+K40+K50+K60.EQ.O ICALLJETM IX 

SPECIFIC HEAT AT CONSTANT PRESSURE -FUNCTION OF FUEL-AIR RATIO 
F1«FARFT(K) 

ZZCP* U2M 9*.103*Fl)+(-. 818 W22.6*Fl 1*1. E-5*TFT(K)*< 17.91- 29. 6*F1 
l*l.E-9*TFT(K) **2+ I-2»7434.35*F l |*1 .E-12*TFTI K l**3 

DETERMINATION OF EQUATION CONSTANTS. 

EK15- PREFTl*GRAVC*IAFT2-AFTl)*0.5 

£K10*PREFTUGRAVc*AFTUAFFTl*UFTl*ZAjMlK)4EXieO 

EKl0«EK10-EKl6«-EKi? 

EK14* (AFT2-AFT l)*0.5 


EQFT06CC 
ECF TC61C 
EQFT0620 
ECFT0630 
ECFTOfAO 
EQFTC650 
ECFT0660 
ECFT0670 
ECFT0680 
EQFT0690 
EQFT0700 
ECFT0710 
ECFT0720 
6CFT0730 
ECFT0740 
6CFT0750 
ECFT0760 
EQFTC770 
ECFT0780 
ECFT0790 
ECFT0800 
ECFTO’310 
ECFT0820 
EQFT0830 
ECFT084U 
ECFT0850 
EQFT0860 
ECFT0870 
ECFT0880 
ECFT0890 
ECFT0900 
ECFT0910 
ECFT0920 
ECFT0930 
ECFT0940 
ECFT0950 
ECFT0960 
ECFT097C 
ECFTC980 
ECFTC990 
ECFTIOOO 
ECFT1010 
ECFT1C20 
ECFT1030 
ECFTIOAO 
ECFT1050 
ECFT1C60 
EQFT1070 
ECFT1080 
ECFT1090 
ECFT110C 
)ECFt 1 110 
EQFT1120 
ECFT1130 
ECFT11A0 
ECFT1150 
EQFT1160 
ECFT1170 
EQFT1180 
EQFT1190 
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EKLl*CENFTl*UFTl*<!m-EKi70)«EIU90*Z«H(iO*(SAFTMtK)*CFlA(K)4SAFTECFT1200 


iRB(K)*CFTB(Kn*(XCPU»-XCF(K)> 

EKll* FKll-EK 19 
AFFTTl«EKli4FlFL*AFFTl 

CALCULATE FUEL-AIR RATIO AT STATION (Ml) 

FGR2«(FARFTIK)/(FAPFT(K )+l.)4FARL) 
FARFT2-FGR2/II.-FGR2) 

IFIFARFT2.GT.ZST0C) GO TO 2001 
FARR-0. 

GO TO 20 

2001 Z8«ZSTCC/(ZSTCC ►!.) 

FARR»AFFTT14(FG«2-ZB) 

AfFTT1«AFFTTI-FARR 

FARFT2-ZSTCC 

farl-farl-farr/affti 

IF (FARL.LE.O. ) FARL-O. 


•AFFTi/APFTTl 


20 

205 


51 


SET LCCP FOR ITERATION ON FLAME TUBE PARAMETERS 

DO 10 1-1,200 
CCNTINUE 

CALL SUeRCUTINE HEATAC TO OBTAIN HEAT RELEASE RATE 

CALL HEATAD 
FARFTl-FARFT(K) 


ECFT121C 

ECFT1220. 

ECFT1230 

ECFT1240 

E0FT1250 

ECFT1260 

ECFT1270 

ECFT128C 

ECFT129C' 

ECFTITCO 

ECFT1310 

ECFT1320 

ECFT133C 

ECFT1340 

ECFT135C 

ECFT1360 

ECFT137C 

ECFT1380 

ECFT1390 

ECFT1400 

ECFT141C 

ECFT1420 

ECFTIA30 

ECFT1440 

ECFT1450 

ECFT146C 

ECFT1470 


20 3 


EK12»AFFT1*( < (.2Al94.l03*FlI*TFTl4(-.818i+22.e*Fl)*l.E-54TFTlA*2/2ECFTlA80 
!.♦ 117. 91-29. 6*FnM.E-9*TFTl**3/3.4<-2.7434.354Fn*l.E-l2*TFTl*44/ECFTlA90 
24.-102.A2-70,15*Fi)*GRAVC*GJOULE4UFTl**2/2.)4EK200-ER204ZMJETUl4HEQFT150C 
3RKATE*GJ0ULE*GRAVC4(QTRA(K)*(XCP(J)-XCP{K EQFT1510 

A) ) *CFTA(K)4CTRB(K)4(XCP(J)-XCPIK) )*CFTB( K ) )*GRAVC*G JOULE ECFT1520 

IF (K7J 153, 153,162 ECFT1530 

153 EK13-PREFT1/ (TFT i*CENFTl I 4GRAVC EQFT154C 

162 F2* FARFT2 ECFT1550 

ENTHAL»(( •24194,l03*F2)*TFT24(-«8 181+ 22«64F2)*l •E-5*lFT24A2/2«4 (1ECFT1560 
l 7.91-29. 64F2)*l.E-9*TFT2**3/3.4(-2.7A24.35*F2)*l.E-124TFT2**4/4*-iECFT 1570 


202 *42-70. 15*F 2 I/ZZCP/ (TFT2-459*4) 

OETERHINE FLAME TUBE TEMPERATURE 

154 TFT2*459.44(EK12/AFFTT1-UFT24*2/2.)/CZZCP*ENtHAL 4GRAVC*GJ0ULEI 
I F ( I PRINT *GE •l)WRITE(6,2)EK12, ENTHAL , TFT2, AFFTl #Fl, TFTi, UFTl * 
l EK200,EK2C,ZMJET(K) ,HRRATE,QTRA(K),QTRB(K )«F2«EK 11«ZZCP«TZ 

IF TEMPERATURE IS NEGATIVE STOP ITERATION 

IF(TFT2.LE.0.C)G0 TO 60 
06-07 

«« include cards EQFT 1701 and itos 44 


IF ( TFT2.GT .5000, )TFT2-5000, 
IS IT THE FIRST TIME THROUGH 

IF(K7.EC.1)G0 TC 11 
K7-1 

FORM NEW TEMPERATURE 


THE ITERATION CYCLE 


ECFT1580 

ECFT1S90 

ECF71600 

ECFTltlC 

ECFT1620 

ECFT1630 

ECFT164C 

ECFT165C 

ECFT1660 

ECFT1670 

ECFT1680 

ECFT1690 

ECFT1700 

ECFT1701 

ECFT1705 

ECFT1710 

ECFT172C 

ECFT1730 

ECFT1740 

ECFT175Q 

ECFT1760 

EQFT1770 


o o o 
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ll 


155 


1555 

1556 


12 


10 


60 


,,,* 

TFT2«.4*TFT2«-.6*TFTl 
D7-TFT2 
GC TO 10 
CONTINUE 

TFT2*.45*TFT2*.55*C6 
D7-TFT2 

TEST CHANGE IN TEMPERATURE AGAINST SPECIFIED LIMIT 

IF C A RS I C 7 -O 6 ) -FIENTH) 155*155*10 
X»EK13*TFT2*( AFT2-EK14I 
Y*EK11**2/(AFT2-EK17) 

IF(4«*X+Y«GE»EK10**2 )GOT 01555 
CENFT2*(EK10+SQRT(EK10**2-4.*X*Y))/I2.*X) 

GCT01556 
0ENFT2*EKl0/2./X 
CCNTINUE 

FLAME TUBE PRESSURE VELOCITY AND AIR MASS FLOW RATE 

PREFT2*EK13^#ENFT2*TFT2/Gf»AVC 
UFT2*AFFTTl/ (DENFT2* I AFT 2-6K17 ) ) 

AFFT2*AFFTT1 
09*010 

I F (K8.EG. I IGO TO 12 
Kfl*l 

D 11*TFT2 
010*UFT2 
GC TC 10 
CCNTINUE 
012*011 
0 10* UFT2 
0 1 1* TFT2 

IS THE CHANGE IN VELOCITY LESS THAN ONE PERCENT OF PREVIOUS 

I FIABSI 09-010 ).LE.UFT2*FIPHI. AND. ABS< 011-0121. LE.FIENTH)GCTC156 
IF ( IPPINT.GE.l)HR!TE(6t 2)AFFTTltAFFTl»FARtFARL*AFR f HRRATE*FARFT2# 
IEK11»EK12 tENTHALfTFTl* TFT2 
GC TO 156 
WRITE! JTAPE.3000) 

WRITE (JT APE *4000 ) 

TFT2*100. 


STORE FLAME 


TUBE 


PARAMETERS 


156 


UFTIK-fl )*UfT 2 
PREFT (K+l )*PREFT2 
DENFT (K+l ) *DENFT2 
TFT(K*1)*TFT2 
AFFTIK+l )*AFFT2 
FARFT(K4l)*FARFT2 

SET UN8URNT-FUEL TO GAS RATIO 

FARL*FARR/AFFTTI 

return 

END 


ECFT1780 
ECFT1790 
ECFT18 00 
E0FT181O 
ECFT18 20 
ECFTI830 
EQFT1840 
ECFTI850 
ECFTI860 
ECFT1870 
ECFT1880 
ECFT1890 
ECFT1900 
EQFT1910 
ECFT192C 
EGFT1930 
E0FT1940 
ECFT1950 
ECFT1960 
EQFT197C 
ECFT1980 
ECFT1990 
ECFT2000 
ECFT2010 
EQFT2020 
ECFT2030 
ECFT2040 
6CFT2C50 
EQFT2C60 
6CFT20 70 
ECFT2080 
ECFT2C90 
ECFT2100 
ECFT2110 
VEL0CIECFT2120 
E0FT2130 
ECFT2I40 
ECFT2150 
ECFT2160 
EOFT2170 
ECFT2180 
ECFT2190 
EOF T2200 
ECFT2210 
ECFT2220 
ECFT2230 
ECFT2240 
EQFT2250 
ECFT2260 
E0FT2270 
ECFT2280 
ECFT2290 
ECFT2300 
EQFT23I0 
ECFT2320 
ECFT2330 
EGFT2340 
EQFT2350 


YOUR CARO TCTAL IS 


239 
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IBFTC HTAD LIST 

SUBROUTINE HEATAO 


SUBROUTINE HEATAO 

THIS SUBROUTINE CALCULATES THE HEAT PROOUCEO BY 
THE BURNING OF FUEL IN THE COMBUSTOR FLAME TUBE* 

NO SUBROUTINE IS CALLEO BY HEATAO 

ONE SUBROUTINE CALLS HEATAO 
1. EOUFT 


HTADOOIO 

HTA00020 

HTA00030 

HTAD0C40 

HTAD0050 

HTAD0060 

HTA00070 

HTAOOOBO 

HTA00090 

HTAOOIOO 

HTAD0110 

HTA00120 


S SUBROUTINE USES COMMON BLOCKS WHOSE NAMES 
VIZ- P6, B16 » B6 f y B68, B126, B167, B168, I 

rn mmciki / r i a / r nc r m i . npuc t ->c\. ut.Pi rv.TH. 


; CONTAIN THE NUMBER 6 
B678 y B1678* B12678 


HTAD0130 

HTAD0I4C 

HTAD0150 

HTA00160 

HTADOITC 

HTA00180 


COMMON/ B16/CDS (20, 15) ,DPHS( 20, 15)y FLCVylH, NABX(4S) HTA00I80 

1 ,NSP( 20) ,GXIS( 20 y 15) ,K4yK6, FITyFlPHIyFIPSIy FIAyFITAUyFlOyFIENTH HTA00190 

2 ySHAFST , FIFTPRy LCMFLy LCANILHTAD0200 

3 yLCANLy LCFTEL, LCFTL, LCPRTLy BETA, ASW,FFIZ(45 ),AHD0ME,NSC00P(20) HTA00210 

4 , LCPT AL yPAFRZy NHTU (50)»AF23A(3), AF23B( 3 ) , XAF23A( 3) y XAF23B (3) HTAD0220 

COMMON/ 868 /AF ANA (45) , AFANB(45I y AFFTI45 J , AFPRZy C2AI45) yC2B(4S) HTAD0230 

2 yAFSYPyFARFT (45) »OENANA( 45 ) , OENANBt 45 ) HTAD024G 

3 ySAFTRA (45) ,SAFTRB(45)yQTRA(45)yQTRB(45)yREAAN(45) y REBAN (45) 

4,TWA(45),TWB(45) 

COMMON/BI68/AANA (45) , AANB (45 ) V CCA( 45 ) y.CCB(45) y FHCR yNLAST 
1 yKANHET yLANHET yPERCO.THIKFT 
2 y DANA (4 5) y0ANB(45) 

C0MM0N/B67/DENFT (45 ) , EK17, EK19, EK20, EK16 

1 yC(50)yGXIA(50) y KyWUJ ( 50 ) niAUUJXU 

COMMON/ B1 67/ GA SC yGRAVCy G JOULE, IHJ ( 50 ) y XH( 50 ) »NH HTAD0320 

COMMON/ B678/ PR EFT (45 ) , PREANA(45), PREANB( 45) y TFTC45) , TANANA (45) ,TANHTAD0330 

IANB(45),AFJ1(50) ,UFT(45) HTAD0340 

COMMON/ B1678/NSHCP,XCP( 45) ,AFT(45),PI HTAD0350 

1 , NHH ( 50 ) , KJSN( 45,6) ,HAU( 50 ),CFTA(45)yCFTB(45),NAB(50) ,NC00EA(45) 

2 yNCOOEB (45 ) ,TZ 
COMMON/ Bl 2678/ JTAPEy IPRINT 
COMMON/BI 26/ AF2,TAN1 A yTANIByPANlAy PAN IB 

l ,AFA, AFB, PREOMySTAGT , IBLySTPREF, * “ 

CCMM0N/B6/PREAN1 ,PREAN2, DENAN1, 0 
I AF AN2 y UANI ,UAN2y ZAJM(4S) ,ZMH( 45 ) 

2FARL,FAR,ZST0CyAFFTl,AFFTTl,TCTi 

3ZMJUJ145) ,ZMJET(45)yCO,GXlyO 
40ENFT1,DENFT2, AFTi,AFT2, AFFT 

5FARFT2 y ENT HALy LCMFy LCANI y LCAny uwr icytvnymyMyynicy 
6AFSYPA .AFSYP8, AFSYIA, AFSYIByLCPRTyLCPTA 

7 ,C2(45) , UANA( 45 ) , ZMHA ( 2) yGXIAyGXIB 

8 »DPH( 50) , WCD(50) ,WFFIZ(45), DPAFS, OPBFS, DPAES, OPBES 

9 ,RC( 50 ) 

lyAyByOyE 

2 , K30, K40,K50,K60 

CALCULATION OF FLAME TUBE HEAT AOOITION 
CALCULATE MASS OF FUEL BURNT BETWEEN CALCULATION POINTS 


AFAN1» 



HTAD0220 
HTAD0230 
HTAD0240 
HTAD0250 
HTA00260 
HTAD0270 
HTA00280 
HTAD0290 
HTAD0300 
HTAD0310 
HTAD0320 
TANHVAD0330 
HTAD0340 
HTAD0350 
HTA00360 
HTAC0370 
HTAD038C 
HTA00390 
HTAD0400 
HTA00410 
HTAD0420 
HTA0043C 
HTAD0440 
HTAD0450 
HTAD0460 
HTA00470 
HTAD048C 
HTAD0490 
HTA0050P 
HTAD0510 
HTAD0520 
HTAD0530 
HTAD0540 
HTA00550 
HTA00560 
K ANO K+l HTAD0570 
HTA00580 
NTMACOn 


FARZ»FARL 
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IFIFARFT2.LE.ZST0C) GO TO 200 
FAl«FARFT2-ZSTQC 
FGL»FAL/(U*FARFT2) 
FARZ«FARL-FGL*AFFTTI/AFFT1 
I F ( FARZa LE «0« ) FARZ-0. 

200 CONTINUE 


HTA00600 

HTA00610 

HTAD0620 

HTAD0630 

HTAD06AO 

HTAD0650 


MRRATMFLCV*PARZMFPUMi.0n.l«aA»*ITFU**7.f*IPPn/I 1«*FARPTIK) IHTAD0A60 
l-TPT2**7.5*AFFTTl/{l.+FARFT2)) HTAD0670 


WFFIZ(K)-FARZ*AFFTi/(XCP(K+l)-XCP(K) ) 


HTAD0680 


RETURN 


HTAD0690 


END 


HTAD0700 



IBFTC JETM 


LIST 


SUBROUTINE JETMIX 


this subroutine calculates resioual jet parameters 


THE METHOD CF CALCULATION 
VARIABLE - NEF 

NEF-1 PASS LOS 
NEF»2 ECU IVALEl 
NEF-3 PROFILE 
KEF«4 INSTANT AJ 


IS COVERNEO 8V THE VALUE OF 


PASS LOSS 

EQUIVALENT ENTRAINMENT 
PROFILE SUBSTITUTION 
INSTANTANEOUS MIXING 


1HIS SUBROUTINE USES COMMON BLOCKS WHOSE NAMES CONTAIN THE NUMBER 7 JE7M0170 

VIZ- B 17 1 867 f B167, B178, E678* 81678* B126 78 JETM0180 

JETM019G 

CCMMON/BZERO/ A(43C) ,EFCL(40 ),TJETA( 40) ,UJCL(50 1 ,UJETA (60) JETMQ20Q 

CCMMON/817/ XHU(50) *DXHU(5C)*EFCI2I* NEF, STEP, JKSN(SO),NSH JETP0210 

CCMMCN/B67/0ENFT (45), EK17* EK 19*EX20* ERIE JETM0220 

1 ,C (50) ,GXIA(50) *K *WUJ (50) JETM0230 

CCPMCN/E16 7/GASC, GRAVC, G JOULE* IHJ( 50 *XMi 50)* NH JETM0240 

CCMM0N/B178/DFT (45) . JETP0250 

C CMM0N/B678/PREFT (45 )* PREANA(45 ) *PREANB( 45), TFT(4S )»TANANA (45) *TANJETM0260 


1 ANB( 45 ) , AF J1 ( 50) *UFT (65 ) 

CCMMCN/RL678/NSHCP»XCP(4S)*AFT(45)*PI 

1 ,NHH (50 ) ,K JSN(4S»6) *HAU( SO )* CFTAI4S) *CFTB(45 ),NA8(50) ,NCOOEA(45) 

2 ,NCCDEB(45 ),T Z 
CCMMCN/B12678/JTAPE * IPRINT 
CCPPCN/B5867/XFSA«XFSB 

OIMENSICN STATEMENTS 

CIMENSICN NOIS(SO) 

FORMA! STATEMENT 

I FORMAT (IX////// 18H *69 ERROR MESSAGE) 

2 FCRMAT (7H JETMIX3I7* 9F10.3) 

10 FCRMAT ( 1 X / 120H J NDlS(J) EK17 EK19 EK 

1 EK20 AJET FLUXH FLUXM DENSJ $ 

2 UJ/Z(5X,I5),10(E10.3)/ 6 OH DJ UJCL(J ) EFCL2 

3AH/4 ( FlO *3 ) ) 

I I FORMAT (5X f I5 t 3(E10*3)*5X*IS,4(E10»3)*3X,IS) 

12 FCRMAT(5X*I5,2(E10.3)*5X*I5*S(E10.3)) 

13 FCRM A T(1X/ 50h IX S X UJCLU) EFCL 

15X,I5,4(E10.3)) 

14 FORMAT ( IX/ 30H IX Y S/5X* I5*2(E10. 3) ) 

21 FORMAT ( IX / 90H J2 ETA AJET EFCLIJ2) J 

1 T JET FLUXU FLUXH FLUXM, 10H K2) 

22 FORMAT (IX/ 90H J2 AJET EFCLU2) J3 TJETA ( J2 

1 FLUXU FLUXH FLUXM ETA) 


IX 
J2 

1 T JET FLUXU FLUXH FLUXM, 10H 

22 FORMAT (IX/ 90H J2 AJET EFCL(J2) 

1 FLUXU FLUXH FLUXM ETA) 

2 3 FCRMAT (26H SUBROUTINE JETMIX ENTERED) 

24 FORMAT (25H SUBROUTINE JETMIX EXITeO 
91 FORMAT (41H WHEN SUBROUTINE JETMIX MAS CALLEO* 
IAN NSHCP+l.) 


AJET 


FLUXM, 10H 
AJET EFCLU2) 
ETA) 


JETP0270 

JETP0280 

8(50) *NC0DEA(45) JETM0290 

JETM0300 
JETM0310 
JETM0320 
JETM0330 
JETP0340 
JETM0350 
JETP0360 
JETM0370 
JETM0380 
JETM0390 
JETP0400 
JETP0410 
EK19 EK16 JETM0420 

SJ $ JETM0430 

EFCLZ ETJETM044C 

JETP0450 
JETM0460 
JETP0470 

UJCLU) EFCLZ/ JETP0480 

JETP0490 

* I5,2(E1C* 3) ) JETM0500 

FCL( J2) J3 JETM0510 

K2 ) JETP0520 

J3 TJETA (J2) JETP0530 
JETP054C 
JETM0550 
JETP0560 

WA$I3*20H, LESS THJETK0570 

JETP05B0 


UJCLU) 


S/SX* !5*2(E10« 1) ) 


EFCLIJ2) J3 

K2) 

J3 TJETA (J2) 


92 FORMAT! 21H PECULIAR JET PRCFILE/11M IN JET NO»!3»10M,CFCL<60)«M*3JETM0590 


oor» non r»oo oooo 
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jeJt> 06 oo 

NEGATIVE QUANTITY IN EXPRESSION PON JET PgNETRATIONAPll JETPOfilO 

JETN0620 

JET FROM HOLE ROM N0.U.36H IS SPREA0IN6 TOO PAR* 


1) 


98 FORMAT! 52H 
1 . 3 ) 

99 FORMAT (26H THE 
INCREASE EFC.) 


TO OBTAIN PRINTOUT OF INTERMEDIATE RESULTS IN THIS SUBROUTINE 
SET IPRINT ■ 2 

IPRINTMPRINT-I 

IF I IPRI NT. EC. 1) WRITE(6» 23) 

00 601 J* 1 *NH 

601 AFJ1(J)*AFJ1( J!/FLOAT(NHH( Jl ) 

6K16-0. 

EK17-0.0 
EK 19*0.0 
EK20*0.0 

IF(NEF.EC.A) GO TO 900 
JS*KJSK( NSHCP* 1) 

I FIK-NSHCP )19I, 124,150 

SET BACK NO IS ( J ) t THE INDICATOR THAT SHOMS WHICH JETS HAVE 


124 

149 

150 


NHCLAS*0 
DC149J-JS.NH 
NOISI J)*0 
Kl«K 


I JETP0630 
JETP0640 
JETM0650 
JETM0660 
JETM0670 
JETP0680 
JETP0690 
JETM0700 
JETM071C 
JETP0720 
JETP0730 
JETM0740 
JETM0750 
JETPQ760 
JETP0770 
JETM0780 
JETM0790 
JETP0800 
0ISAPPEARE0JETP08 10 
JETP0820 
JETM0830 
JE TM0840 
JETPC850 
JETM0860 


NHC* MAXOIKJSN IK* 1 )f KJSNIK »2 ) t KJSNIK* 3) *KJSN (K*4 )*KJ$N!K *9) * KJSNIK JETM0870 


1 ,6 ) .NHCLAS ) 

NHCLAS-NHC 

XHDUM-XCPIK+l) 

D0103 IJ«JS,NHC 

IF (NCI SI J) .EQ. l.OR.NAB ( J) «LT«1 ) GQ TO 1031 
K*JKSN(J) 

IF(NA6(J).EG. 1 ) GOTO 109 
T AN*T AMANB (K ) 

DENSj«PREANE(K)/(GASOTAN) 

G0T0115 

109 TAN-TANANA(K) 

DENS J*PREANA (K)/ (GASC*TAN) ^ 

115 VlSJ-(3.057E-3*8.607E-S*TAN-2.279E-8*TAN*?AN42.908E~12*TAN»t3) 
1/3600. 

CONS -PREFTIKl) *GRAVC«6J0ULE/GASC 

CONT-PREFTIKD/GASC 

FLUXH-0.0 

FLUXM-0.0 

A jET»0. 

FlUXU-O. 

S*0.0 

XIAST-O. 

YLAST-0.0 

IND*0 

INE-0 

SEPARATE MALL ANO PENETRATION JETS 
IFIDXHUI J) .EQ.0.0 IG0T0100 
PENETRATION JETS 


JETP0880 
JETP0890 
JETM0900 
JETM0910 
JETM0920 
JETPC930 
JETM0940 
JETM0950 
JETM0960 
JETP0970 
JETP0980 
JETM0990 
JETMIOOO 
JETM1010 
JETP1020 
JETM1030 
JETM1040 
JETM1050 
JETP1060 
JETM1070 
JETM1080 
JETP1090 
JET PI 100 
JETM1110 
JETM1120 
JETP1130 
JETPU40 
JETP1150 
JETM1U0 
JETM1170 
JETP11S0 
JETM1190 



ooo o n a on o 
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0J«SCRT(C(J)*HAU(J)*4./PI) 

DJA= SCRT ( C < J > )*2.*0XHU<J) 

UJ*AF Jl( J)/CENSJ/C( J )/HAU( J) 

WUJIJ)*UJ 

EF0*EFC(il 

IS THIS A SECONDARY HOLE 

IF ( JKSNI J) .NE.NSHCP) GO TO 1100 
IF(NAB<J>.EC.l) SPL * XFSA 
I F (NAB ( J ) • £Q« 2) SPL -XFSB 
SQSPL « SORT I SPL) 

DJ * CJ*SCSPL 
0JA=D JA4SCS PL 
AFJ1IJ) » AFJH J) * SPL 
1100 CONTINUE 

FIND DISTANCE ALONG JET CENTRE LINE 


JETP1200 
JETP1210 
JETM1220 
JETH1230 
JETP124C 
JETP1250 
JETM1260 
JETH1270 
JETP1280 
JETP129C 
JETH1300 
JETM1310 
JETP1320 
JETP1330 
JETM1340 
JETM1350 
JETM1360 
JET PI 370 


C 

c 



D0102IXsl»100 

JETM1380 

JETM1390 


IF(INE.EQ.l) GO TO 105 

JETK140C 


AI =1 X 

JETF141C 


X=AI*STEP 

JETP1420 


l F (X-XHDUM +XMJ ) ) 1032 206*106 

JETM1430 

106 

X=XHOUM “X H ( J ) 

JETM1440 

206 

I NE=l 

JETP1450 

103 

IFIIN0.EQ.1IGCT0127 

JETP1460 

128 

IF(DENSJ.LE.O..CR.OENFT(K).LE.O..OR.UJ .LE.O. .OR.UFT(K).LE.O..OR 

•X. JETM1470 

1 LE.O.. CR.OJA.LE.O. IG0TQ198 

JETM1480 


Y=0.87*CJA*(DEN$J/CENFT(Kn*4.474(UJ/UFTIKn**.85*(X/0JA|*4.3 

JETP1490 


12*SIN(GXI A( J ) ) 

JE TP 1500 


IFIY.LT .0.37*0FT(K) IGOTOIOI 

JETM1510 


Y=0.37*0FT(K) 

JETP1520 


INC=l 

JETN1530 

101 

SaS+SCRT ( I X-XLAST) ♦♦2+I V-YLAST 1**2) 

JETP1540 


YLAST-Y 

JETP1550 


XIAST-X 

JETP1560 


GCTC102 

JETP1570 

127 

S»S+X -XLAST 

JETP158C 


XIAST * X 

JETM1590 

102 

CONTINUE 

JETP1600 

105 

CC$ETA«1 . /SORT (1«4|| Y-YLAST 1/ ( X-XLAST 1 J4*2 ) 

JETP1610 


K«K1 

JETP1620 


S« S4 ( 2 .93-0. 279*U J/UFTI K H*OJ 

JETM1630 


IF (S.I.T. .001 IS* .001 

JETM1640 


JET CENTRE-LINE VELOCITY 

JETP1650 

JETP166C 


I F (S/OJ.GT. 3.45 JGOTO 107 

JETM1670 

JETM1680 


UJCL ( J )*UJ 

JETM1690 


GC TO 129 

JETR1700 

107 

I F (S/DJ.GT .5.2 iGOTOllO 

JETP1710 


UJCL (4)*UFT (K)4 (1.-. 229*1 S/0J-3 .45 ) )*(UJ-UFT (XI ) 

JETM1720 


GO TC 129 

JETP1730 

110 

IF( S/DJ.GT. 100. JUJCL ( J)*UFT(K ) 

JETP1740 


I F (S/DJ.LE.100. ) 

JETP1750 


IUJCL(J)-UFT(K)43.6/EXP(.3AA*S/0J)*(UJ-UFT(KJ ) 

JETM1760 

129 

IFINEF.EQ.DGOTOlll 

JETM1770 


PROFILE-SUBSTITUTION OR EQUIVALENT ENTRAINMENT METHOD 

JETM1780 

JETP1790 


non non non 


* * .* * 


C 

113 ETAH=AMAX1(.215*S,CJ1 
IF (NEF.EC.11 GO TO 143 
ETA=0.0 

ViCRK ACROSS JET PROFILE, SUMMING HE*T OR MASS FLUX 

ETAINC*.1*ETAH 
IFUPRINT.EQ.il 
1WRI TE (6,22 I 
D0ll4j2=i,40 
ETA=ETA+ETaINc 
IF(ETA.GT.ETAH)G0TCU6 

UJETA(J2)»UFT<KI + (0.5*(C0S(0.5*PI*ETA/ETAHII*C.5I*<UJCUJ1~UPTIK1I 
GOTO l 17 

lit UJETA(J2)*UFT(K)+1.74*EXP(-1.25*ETA/ET AH)*(UJCL (Jl—lFT(Kll 
117 EFCL(J2)=(UJETA(J2|-UFT(K)|/(UJ-UFT{KI1 
J3=.5+FL0AT( J2I/1.4 
I F (NEF.EC.2 I GO TO 1119 
IF(4.8/6.5*EFCUj3).GE.EFD) GO TO 1119 
IFU2.GT.I) GO TO 143 
GC TO 1430 

1119 T JETA (J2 ) = TFT (KI+CTAN-TFT ( K I )*EFCL ( J3) *4.8/6. 5 

FLUXM=F LUXM+ CCNT /T JET A< J 2 1*UJETA< J2 1* .12* 1.8*E TA**.8*ETAlNC 

IF (NEF.EQ.2) GO TO 114 

AJET=.12*ETA*4l.8/C0SETA 

FLUXU*FLUXU+CONT /TJETA(J2I*UJETA( J2I**2*.12*1.8*ETA**.8*ETAInC 
1 *CCSETA 

ZZCPl*.24l9-. 8181E-5*TJ£TA (J2I/2.+17.9 1E-9*T JETAI J2 l**2/3. 

I -2.742£-12*TJETA( J2 )** 3/4 •** 102 .42/T JETA (J2| 

CCNST=C0NS*ZZCP1 

FLUXH=FLUXH+(CCNST+CONT/TJETA(J2I*0.5*UJETAC J2)**2)*UJ6TA(J2I* 

1 .12*1.8*ETA**.8*ETAINC 

114 IFUPRINT.EC.il 

1WRITE ( 6, 12 I J2» A JET ,EFCL( J2 I, J3,T JETA ( J2) ,FLUXU ,FLUXH,FLUXM, 

IETA 

GC TO 143 

WALL JETS 

100 DJ=HAU( Ji*C< Jl 
COSETA =1.0 
K2=K 
K22=K 

EF0=EFC(2I 

IF (NAB ( JI.EQ.2 IG0TC132 

CFT=CFTA(K1 

GOTO 133 

132 CFT*CFT0 (K| 

133 UJ*AFJ1 I J)/ (DENSJ*CJ*CFT I 
WUJ(JI*UJ 

UJCL ( J1»U J 

FIND CISTAN't PARAMETER ALONG NALL 

00122 IX* 1, 100 
A 1*1 X 

XL«XCP(K2+11-XCP(K22I 

X«AI*STEP 


JETM18C0 
JETM1810 
JETM1820 
JETM1830 
JETM184Q 
JETM1850 
JET F 1860 
JETM1870 
JETM1880 
JETM1890 
JETF1900 
JETM1910 
JETM1920 
JETM1930 
JETF1940 
JETM1950 
JETM1960 
JETM1970 
JETM1980 
JETM1990 
JETM2000 
JETM2010 
JFTM?C2c 
JETM2030 
JETH2040 
JETM2050 
JETM2060 
JETM2070 
JETM2080 
JETN209C 
JETM2100 
JETM2110 
JETM2120 
JETM2130 
JETN214C 
JETM2150 
JETM2160 
JETM2170 
JETM2180 
JETM2190 
JETM2200 
JETM2210 
JETM2220 
JETM2230 
JETM2240 
JETM2250 
JETM2260 
JETM2270 
JETM2280 
JETM2290 
JETK23 00 
JETM2310 
JETM2320 
JETM2330 
JETM2340 
JETM2350 
JETM2360 
JETM2370 
JETM2380 
JETM2390 



t J o 


• * * 

IF(X.LT. (XHCUM -XH ( J ) IIGCT0135 

X*XHCUH -XH(J| 

IN 6=1 

135 IF(X.GE.XL) K2-K241 

S=S+AES(1.-UFT(K2 )/UJCL ( J) )*(X-XLAST) 

IF(S.LE. 0. I UJCLI J )*UJ 

IF(ABS(1.-UFT(K2)/UJ ) .LT ..012 1 GO TO 3135 
IF(S.GT.O. I 

1U JCL( J)»UFT(K2 )40.0287*DJ9 (UJ-UFT(K2 I )4DENSJ/(VISJ* (S*12.) 
2**((1.06/AeS(l.-UFT(K2)/UJ))-.5)l 
I F I ( (UJCLI J).GE.UJ).AN0.(UJCL(J).LE.UFT(K2I) I .OR. 

1 ( (UJCL(JI.IE.UJ).AND. (UJCLI J). CE.UFT(K2I) I) GO TO 148 

UJCLI J)*UJ 
GC TC 148 

3135 UJCLI J)*UFT(K2 I 
148 IFIINE.EQ. 1 IGCTC118 
134 XLAST-X 
122 IF( I PR INT.EC. 1 I 

1WRI TE 1 6 * 13 I I X* S»X ( UJCL( J) «EFCLZ 

WORK ACROSS JET PROFILE* SUMMING HEAT OR MASS FLUX 

Ml 

118 IFINEF.EQ. 1 1 GOTO 143 

EFCLZ* (UJCLI Jl-UFT(K) 1/ (UJ-UFTIKI ) 

IFINEF.EQ. 3. ANC.4.8/6.5*EFCLZ.LE.EFD) GO TO 143C 
ETAH=AMAXl(.065*S.CJ) 

DELTA1=0.0109*S 

ETA=-0*A 

TJCl«TFT(K)+(TAN-TFT(KM*EFCLZ *4.8/E .5 

ZZCpi*.2419-.8181E-5*TJCL /2.4 17. 91E-9*T JCL ♦*2/3« 

1 -2.742E-12*TJCL * *3/4 102. 42/TJCL 

CCNST=C0NS*ZZCP1 

FLUXH* (C0NST4-CCNT/TjCL*0.5*UJCL( J ) *42# C.95 )*LJCL(J) 

1*CFT*DELTA1*0.95 

FLUXM*CONT / T JCL*UJCL ( J ) *CFT*0ELTA1 
FLUXU=CONT fl JCL*UJCL ( J ) ♦♦2*CFT*D£L TA1*0 .45 


JETM2400 

JETM2410 

JETP2420 

JETM2430 

JETM2440 

JETP2450 

JETP2460 

JETM2470 

JETM2480 

JETM2490 

JETP2500 

JETM2510 

JETM2520 

JETM2530 

JETM254C 

JETM2550 

JETM2560 

JETM2570 

JETK258C 

JETM2590 

JETM2600 

JETM2610 

JETM262C 

JETR2630 

JETM264C 

JETM2650 

JETM2660 

JETP2670 

JETP2680 

JETM2690 

JETM270C 

JETP2710 

JETM2720 

JETM2730 

JETM274C 

JETP275C 


A JET=DELTA1*CFT JETP2760 

IFIIPRIM.EC.il JETM2770 

1 WRITE (6*21 ) JETM2780 

DC112 J2=l *40 JETP2790 

E?A=£TA4.12 JETM2800 

UJETAI J2) = UFT(K )♦ (U JCL I J l-UFT (K I) *EXP (-0. 693*ETA*ETA | JETM2810 

EFCL(J2I*( UJETAI j2 l-UFT (Kl )/( UJ-UFTIK 1 1 JETM282C 

J3*.5+FL0AT(J2I/1.4 JETM283C 

T JET *TFT I K)4 (TAN-TFTI K ) l*EFCL I J3 1 *4. 8/6.5 JETM2B40 

ZZCP1«.2419-.8181E-5*TJET /2.417.51E-9ATJET *92/3. JETM2850 

1 -2.742E-129TJET ♦* 3/4 102.42/T JET JETM2860 

CCNST-C0NS9ZZCP1 JETM2870 

FLUXH*FLUXH4(CONST9CONT/TJET90.59gjETA(J2)992)*.19ETAH*CFT9«4ETACJJETP2880 

JETM2890 


1 21 

FLUXM»FLUXM4C0NT/TJET**14ETAH4CFT*UJETACj2l 
FLUXU-C0 Nt/TJET*.1*ETAH«CFT4UJETAIJ2)9*2 4 FLUXU 
AJET-AJET4.19ETAH9CFT 
GO TO 1 143 *112*140) y NIF 
140 IF (4.8/6. 5*EFCLI J 3 ) .LE.EFO ) GO TO 143 
112 IF(IPRINT.EQ.l) 

1WRITE(6,11) j2*ETA f AJET*EFCL I J2I* J3* TJgT*FLLXU 
1 *K2 

AREA OF IOEALIZEO JET 


JETM2900 
JETM291C 
JETM29 20 
JETM29 30 
JETM2940 
JETM2950 
* F LUXH »FLUXM JET M2960 
JETM2970 
JETM2980 
JETM299Q 


1 


non 
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143 IF(IPRINT.G£.0)WRITE(6,2)K1, J,NDIS(J),UJ,UFT(K).UJCI<4),EPCI(J3), 

1FLUXM, AFJ1UJ) 

IF{NEF.EC.1.A*D.DXHU(J).EQ.O.O) GO TO 21U 
GC TO ( 111,125,2130) , NEF 
111 FLUXH-AFJ1 (J) *(1.-EFO*S/(2.*OXHU(J)>) 

GC TO 126 

2111 FLUXM * AFJl! J)*(1.-EFD*S/HAU( J)) 

GC TO 126 

12 5 FLUXH.AMINl1fAFJllJ)*(1.4EFD)-EFD*auXM), FLUX*) 

126 iFtFLUXM.GT.O.) GO TO 2126 
AJET*0. 

FLUXU*0. 

FLUXH*0. 

1131 FLUXM.C. 

1430 NDISUJ * l 
GO TO 1030 

2126 AJET*FLUXP/UJ/DENSJ /COSETA 
FLUXU»FLUXM*UJ *CCSETA 

ZZCPT«.24i9*TAN-.818lE-59TAN46 2/2.4l7.9lE-9*TAN9*3/3.-2.742E-12* 

1 TAN444/4.-102.42 

FIUXH«FIUXP*( ZZCPT *GRAVC*GJ0ULE40.5*UJ**2) 

2130 IF (DXHU ( J) .EQ.O .0 ) GO TO 2131 

130 BB*4. *ETAH*OFT! Ki )/2. 

IFIAJET.GT.BB) AJET*B8 
CC»FLOAT { NHH 4 J ) ) 

GC TC 2199 

2131 CC=l. 

2199 I F (A JET.LE .0 • 25*AFT ( K1 ) /CC ) GO TO 131 
199 IF C IPRIKT.LT. 0. AND. LCHFL .NE.l > GOTO 1030 
WRI TE( JTAPEtl ) 

WRITE ( JT APE, 99 ) J 
GC TO 1030 

198 IF(IPR!KT*lT.0.AN0.LCKFl.NE.l)GOTO103C 
WRITE I JTAPEtl ) 

WRIT E I JT APEt 98 ) DENSJ# OENFT IK ) ,UJ,UFT(K> , X.OJA 
GOTO 10 30 

131 EKl6«EK16+FLUXU*CC 
FK17»EK17+AJET*CC 
EK19*EK194FLUXM*CC 
EK20«EK204FIUXH*CC 

IF THIS IS A SECONDARY HOLE, RESET AFJl(J) 

1030 I FIJKSN(J).EQ.NSHCP) AFJl! J)*AFJl( J)/SPL 

1031 IF ( IPRINT .GE.O) 

1WRITE (6,10) J, NO 1S( J ), EK 17 ,EK19« EK 16,6*20, A JET, FLU XH,FLUXM,QENSJ« 
IS ,UJ ,DJ ,UJCL( J) , EFCLZ, gTAh 
K«Kl 

GC TC 900 

191 WRlTE(JTAPE,l) 

WRITE! JTAPE, 9l)K 

900 DC 901 J«i,NH 

901 AF J1 ( J)»AFJ1! J)*FLOATCNHH< J) ) 

IF(IPRINT.EC.l) WRITEI6, 24 ) 

IPRINT-IPRINTU 

RETURN 

END 


YOUR CARD TOTAL IS 
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SIBFTC HT1 LIST 


HT1 

SUBROUTINE HEAT1 HT1 

HT1 

SUBROUTINE HEAT1 HT1 

HT1 

THIS SUBROUTINE CARRIES OUT A NONITERATIVE HEAT TRANSFER HT1 

CALCULATION. HT1 

HT1 

THIS SUBROUTINE CALLS FOR FOUR SUBROUTINES MT1 

1. EEFT HT1 

2. PROP HT1 

3. COOL HT1 

4. TWSOLN HTl 

HT1 

THIS SUBROUTINE IS USED BY THE MAIN PROGRAM CLARE HTl 

HTl 

THE ROUTE THROUGH THIS PART OF THE PROGRAM IS CONTROLLED BY HTl 


HTl 
HTl 
HTl 
HTl 
HTl 
HTl 
HTl 

THIS SUBROUTINE USES COMMON BLOCKS WHOSE NAMES CONTAIN THE NUMBER 8 HTl 


VIZ- B 8 1 B18 « B68« B168, B178, B678, B1678, B12678 HTl 

HTl 

COMMON STATEMENTS HTl 

HTl 

CGMM0N/B8/D1A( 45), D2A(45) *D3A( 45 ) *D4A( 45 ),D1B( 45),D2B(45) »D3B{45 ) HTl 
1*D4B(45).FMOC02(45)*FMOH20(45),C1A(45)*C1B(45),R1A(45)*R1B(45),R2 HTl 

2 A ( 45 ) »R2B(45),R3A{45) »R3B(45 )» TNUAAN( 45 ) * TNUBAN(45 ) • TNUFTI 45) « HTl 

3 TW ADM 45) «TWADB(45)« HTl 

4EMFT 1 45) t'FILMf AC45 ) * FILMF8( 45) ,PRAAN( 45 ) * PR BAN 145) *PRFT(45) *REFT (4HT1 
5 5) *FI NT(45 )*TCFA(45) *TCFB(45), UFTA(45 ) »UFTB( 45 ) * UJ1A(45) *UJ1B (45 ) ?HT1 
6AF JAI45) » AFJB(45)*YCFA(45),YCFB(45) HTl 

COMMON/818/ABSW* EMW* EMC* NLUM* NHTl,NHT2 HTl 

1* X1FCA(45)*X1FCB(45)*C0NDFT»TCASA(45)*TCASB(45) *TOLTWl,TOLTHTl 

2W2.XFILMZ* TABTFT1 10) *TABEFT( 100)* TABPFT ( 10) *NEFT*NPFT*NF0RMHT1 

3. NC00L* NUMAXl* NUMAX2 HTl 

COMMON/ B68/AF ANA (45) * AFANB(45) * AFFTl 45) * AFPRZ*C2A(45) »C2B (45) HTl 

1 * AFSYP* FARFT (45) * OENANA{ 45 ) » OENANB (45) HTl 

3 »SAFTRA(45) #SAFTRB(45)*QTRA(45)*QTRB(45)*REAAN(45)*REBAN(45) HTl 

4, TWA(45),TWB(45) HTl 

CCMM0N/B168/ AANA(45 ) * AANB (45 )* CCA( 45 ) *CCB( 45) » FHCRyNLAST HTl 

1 ,KANHET,LANHET,PERCO,THIKFT HTl 

2 »DANA(45) «CANB(45) HTl 

C0MM0N/B178/DFT(45) HTl 

COMMON/ B678/ PR EFT (45 ) *PREANA(45) *PREANB( 45 ) *TFT(45) *TANANA (45) *TANHT1 

1 ANB(45 ) * AFJ1 (50) *UFT (45) HTl 

CGMM0N/B1678/NSHCP»XCP(45) »AFT (45)* PI HTl 

1 *NHH (50) *KJSN(45*6)*HAU(50 )*CFTA(45)*CFTB(45)*NAB(50)*NC0DEA(45) HTl 
2 * NCODEB (45 ) »TZ HTl 

C0MM0N/B12678/ JTAPE * IPRINT HTl 


THE INDEX NHT1 

NHT1 - 1 FOR 1-OIMENS IONAL RADIATION, UNCOOLED WALL 

NHT1 * 2 FOR 1-OIMEN^IONAL RADIATION* COOLED WALL 

NHT1 * 3 FOR 2-DIMENS‘IQNAL RADIATION, UNCOOLED WAIL 

NHT1 ■ 4 FOR 2-DIMENSIONAL RADIATION, COOLED WALL 


DATA STATEMENT 
DATA YA,Y8/2*0*/ 


r4**r* 






HTl 

HTl 

HTl 

HTl 

HTl 


0C10 

0C20 

0C30 

0040 

0050 

0060 

0070 

0080 

0C9G 

0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0*00 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 

0580 

0590 



o o o 


FORMAT STATEMENTS 
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C 

C 


1 

2 

3 


FORMAT (6H0HEAT110F11 .3/ (6X10F11.3) ) 
FORMAT ( 1H010I5 ) 

FORMAT (6H0HEAT110F11.6/C6X10F11.6)) 


QUANTITIES REQUIREO FOR FILM-COOLING CALCULATION 


D020 1K=1,NL AST 
TkADA IK )*0. 

TWADB (K)*0. 

R3A(K)*0. 

R3B(K)=0. 

FI LMF A (K) =0* 

FI LMFB (K)*0. 

IF (K. NE. 1 )G0 TO 2004 
XIFCA(K) » 100. 

XIFCB(K) = 100. 

GO TO 2005 

2004 XCPOIF = XCP(K) - XCPtK-11 

IF(NCOCEA(K-l).EQ.l) XIFCA(K) « XCPOIF 

IF(NCOCEA<K-l).NE.i) XIFCA(K) * XCPOIF ♦ XlFCA(K-l) 

IF (NCODEB <K-1) .EQ. 1) XIFCB(K) » XCPOIF 

IF (NCCCEBlK—l) «NE. 1) XIFCB(K) • XCPOIF ♦ XlFCB(K-l) 

2005 AF JAI K J=F JA 
AFJB(K) = FJB 
TCFAIKJaTA 
TCFB I K)=TB 
UFTA( K )=UA 
UFTB { K ) =UB 
UJ1A ( K ) =U JA 
UJ1BI K)=UJ8 
YCFAl K)=YA 
YCFBI K)=YB 

IF (NCOCEA ( K) .NE. .1) GO TO 202 
D02001 L = 1 »6 
J = K JSN( K f L ) 

IF (NAB { J) . NE.l ) GO TO 2001 
YA=HAU(J) 

F JA=AF J1 ( J ) 

UA=UFT(K) 

UJA=FJA/(YA*CFTA(K)*DENANACK) ) 

UAN=AFANA(K)/OENANA(K)/AANA(K) 

TA=T ANANA ( K ) +UAN*«2/(2. *32.2*53.35) 

GO TO 202 

2001 CONTINUE 

202 IF(NCOCEB(K).NE. 1) GOTO 201 
DC2002 L * 1,6. 

J a KJSN(K.L) 

IF (NAB ( J) .NE.2 ) GO TO 2002 
YB=HAU( J) 

FJB=AFJ1(4) 

UB*UFT ( K ) 

UJB*F JB/(YB*CFTB(XI*OENANB(KI ) 

UAN=AFANB (K)/DENANB( K)/AANB(K) 

TBaTANANB(K) +UAN««2/( 2. *32.2*53. 35 ) 

GO TO 201 

2002 CONTINUE 
201 CONTINUE 

IF (I PRINT. NE.l JG0T0B765 

WRITE (6,1) (TFT (K),TANANA(K),TANANBiK)«TCFA(iOtTCFB(K)f UFTACKI, 


HT1 

HT1 

HT1 

HT1 

HTi 

HT1 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTi 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTi 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 

HTI 


0600 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0680 

0690 

0700 

0710 

0720 

0730 

0740 

0750 

0760 

0770 

0780 

0790 

0800 

0810 

0820 

0830 

0840 

0850 

0860 

0870 

0880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

0960 

0970 

0980 

0990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 
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lUFTBt K) f UJ1A(K) t UJ1B(K) yDFT(K) ,K«1, NLAST) 

WRITE (6,3>(AFT(K),0ANA(K),AANA(K),AANB(K),DANB(K),CCA(IQ,CCB(K), 
1X1FCA (K) »X1FCB(K)»YCFA{K)»K* 1* NLAST) 

WRITE (6,1 ) (YCFB(K) » AFJA(K), AFJB(K )*PREFT(K ) ,PREANA(K) ,PREANB (K) » 
1FARFT (K) ,TCASA (K ) « TCASB(K) tXCP(K ) *K«1, NLAST) 

WRITE (6,1 )AFPRZ,AFSYP,ABSW,EMC,PI,CONDFT,THIKFT,XFlLMZ,PERCO, 


lFHCRf <AFANA(K),K-1, NLAST J,(AFANB(K),K-1, NLAST), (AFFT(K),K«l,NLAST)HTl 
8765 CONTINUE HTI 

C HTI 

KANHET-KANHET41 HTI 

K*l HTI 

5 CALL EEFT(K) HTI 

FINT(K)»4*8E-13*EMFT(K)*TFT(K)«*4 HTI 

C HTI 

(^•••••CALCULATE THE INTERNAL DIRECT RADIATION COEFFICIENT« A HTI 

C HTI 

A»2,4E-13*(1.4ABSW)*EMFT(K)#TFT(K)*«1.5 HTI 

C HTI 

^•••••CALCULATE THE EXTERNAL RADIATION COEFFICIENT, B HTI 

C HTI 

B-4.8E-I3*(EMW«EMC)/(EMC4EMW«(1.-EMC)) HTI 

CALL PROP ( KfCNDAV, FHC02, FMH20) HTI 

C HTI 

C****« "CALCULATE THE INTERNAL CONVECTION COEFFICIENT, CFT HTI 

C HTI 

CFT»TNUFT(K)*CNDAV/DFT(K) /3600. HTI 

C HTI 

^••••••CALCULATE GAS PROPERTIES IN THE ANNULUS HTI 

C*«****SET CALCULATION TO INNER ANNULUS HTI 

C • HTI 

INXAN-1 HTI 

AAN -AANA(K) HTI 

AFAN*AFANA(K) HTI 

OAN*DANA(K) HTI 

TAN»T AKANA(K) HTI 

TCAS*TCASA(K) HTI 

10 CNDAN*-0.2853E-3+3.268E-5«TAN-0.825E-8*TAN**24l*239E-12*TAN*#3 HTI 
VISAN*3.057E-3+8.607E-5*TAN-2.279E»8"TAN**242*908E-12*TAN«"3 HTI 

CPAN «0. 2419-0. 8181E-5*TAN4l*791E-8"TAN""2-0*2743E-U*TAN"«3 HTI 

REAN»3600.«0AN«AFAN/VISAN/AAN HTI 

IF(REAN*LT.1.)FEAN«1* HTI 

PRAN-CPAN«VISAN/CNDAN HTI 

IF(PRAN.LT.«01)PRAN».01 HTI 

TNUAN«.023"REAN**0.8*PRAN""0*4 HTI 

C HTI 

C*«« -CALCULATE CONVECTION COEFFICIENT IN ANNULUS HTI 

C HTI 

CAN - TNUAN*CNDAN/0 AN/3600* • HTI 

GO TO (50,40,20,20) ,NHT1 HTI 

C HTI 

"INCLUDE TOTAL RAOIATION FROM FLAM! HTI 

C HTI 

20 00 TO(>Of»Of»lfl2t»),NLU» HTI 

C NLUM-1,2 NON LUMINOUS HTI 

30 OUMLUM-1. HTI 

GO TO 35 HTI 


NLUM-3 


LEVEBVE CORRELATION FOR LUMINOSITY 


31 OUMLUM 
GO TO 35 


»7*53"(i#/FHCR*5«5)""0#83 
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C NLUK=4 NRFC 1964 H71 

32 DUMLUK=lXPU l.-4.4*FHCR)/(2.3«FHCn>) HT1 

GC TO 35 HT1 

C KLUM“5 NREC 1966 HT1 

33 DUMLUK* { { 1 .-FHCR+5 • ) / ( FHCR*C .16) ) **0.74 HT1 

35 S1=0. HT1 

' S2»0. HT1 

00 1400 KK-1»NLAST HT1 

C HT1 

DUMR3*(XCP<K)-XCP(KK) ) HT1 

IF(INXAN.FO.l) GO TO 1000 -HTl 

DUMRl*((CCA<K)-CCA(KtO)/PI+CANA<K)-CANA{KK)+OFT<K))/2. HT1 

DUMR2=CUMRl-DFT{KK)/2. . HT1 

GO TO 102C HT1 

1000 0UKR1-{(CCA(KK)-CCA(K))/PI+CANA{KK )-DAN A (K)+DFT(KK))/2. HT1 

DUMR2=CUMRl-DFT(KK)/2. HT1 

1020 TRANSM*0. HT1 

00371=1,20 HT1 

37 TRANSM=TRANSK+ 14. 82/20. /( 14.32+1 FRC02+FHH?0)*PREFT(KK)*SQRT HT1 

1 (0UMR3«*2+(0UMRl-( FLOAT! I )/20.-.Q?5)*( rUK:U-DUMR2) )**2 M HT1 

C HT1 

C VIEW FACTOR PER UNIT LENGTH UF R fcCF IV li'iG SECTIf> HTl 

C HTl 

IF(DURR2.LE.O.COOi)GG TC ICAO HTl 

VU=0. 25/DUKR1* 1 1 .-0UKR3/SCRT ( CUMP 3*»2 + CUMRl**2 > ) HTl 

1+0 .2 5/ HUM R2* ( 1 .“ CUPP. 3/S CRT ( CUMR3««2+DUMR2** 2 ) ) HTl 

G0T01060 HTl 

1040 VU=0.25/DUPR1*(1. _ DUPR3/SCRT( CUP Ri»*2+CUMR 1**2 ) ) HTl 

C HTl 

C EVALULATF WIDTH OF RADIATING SECTION HTl 

C HTl 

1060 IF (KK .£0.1) GO TO 1080 HTl 

IF IKK. EU. NLAST ) GO TO 1100 HTl 

WIDTH=(XCP(KK+1)-XCP(KK-1) >/2. HTl 

GC TO 1200 HTl 

1080 WIDTH=(XCP!KX+1)-aCP(KK)) HTl 

GO TO 1200 HTl 

1100 WIOTH= (XCP(KK)-XCP(KK-l) ) HTl 

C HTl 

C EVALUL/VTE FLA PE CRCSS-StCTIGNAL AREA HTl 

t " - HTl 

1200 FLAR=PI*((CCA(KK)/2./PI+OANA(KK)/2.+ HTl 

1 0FT(KK)/2. )**2-(CCA(KK )/2./PI+DANA(KK )/2.)**2) HTl 

Si=Sl+4.*4.8E-13*PREFT(KK)*( FMCQ2+FMH2Q) HTl 

1 *3.6/TFT(KK)*WlDTH*FLAR*VU*TRANSM*DUHLUM HTl 

2 *(1.0+ABSW)/2.0*TFnKK)**4 HTl 

S2*S2+4.*4.8E-l 3*PREFT ( KK )*( FMC02+FMH2Q) HTl 

1 *3.6/TFT(KK)*WlDTH*FLAR*VU*TRANSM*( 1. +ABSW)/2.*0UMLUH HTl 

1400 IF ( I PRINT. EQ.l ) WRITE(6,1) TRANSH, VU»FLAR,SI,S2,DUMR1»0UMR2,0UMR3 HTl 
C HTl 

C FCRM ECUI VALFNT FLAKE TEMPERATURE HTl 

C HTl 

TSTAR1=S1/S2 HTl 

1700 IFIINXA v.CC.DGU TC 10' HTl 

C HTl 

C FORM TCTAL RVjIATIGN C0KPCN6NT , AA HTl 

C HTl 

AA=S2 / ( (CCE (K ) -DANB C K )*P I ) ) HTl 

GO TO 1900 HTl 

1800 AA=S2/UCCA(K)+DANA(K)*Pin HTl 

1900 IF (NHT 1. FC.3 ) GC TO 50 HTl 


182C 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
192C 
1930 
1940 
1950 
I960 
1970 
1980 
1990 
2000 
2010 
2020 
2C3C 
2C*0 
2C5C 
2C6C 
2070 
2C8C 
2C9C 
2100 
2110 
2120 
2130 
214C 
215C 
216C 
217C 
218C 
2190 
220C 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
233C 
2340 
2350 
236C; 
2370 
238C i 
239C 
2400 
24 1C 
2420 
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40 CALL CCOLOC, INXAN, CNDAV, TRNSCO, CFTTRN ) 

•••• FCRH COEFFICIENTS IN HEAT BALANCE EQUATION ••••••**••*• 

I F (I NX AN. EQ. 2) GO TO 45 
TWAD-TWADA(K) 

60 TO 50 
45 TWAD-TWADB(K) 

50 Dl-B 

02 - A 

03- CFT+CAN 

D4-B*TCAS**4+A«TFT(K)«*2.5+CFT«TFT(K)+CAN+TAN 
GO TO (110, 60, 80*90), NHT1 
60 IF (NC0CL.EQ.2)G0 TO 70 
D4*04+CFT«(TWAD-TFT(K)) 

GO TO 110 

70 D3-D3+CFTTRN+TRNSC0-CFT 

04- 04+ (CFTTRN-CFT) #TFT I K )+TRN$CO«TAN 
GO TO 110 

80 01-01+AA 

02 - 0 . 

D4-04+AA+TSTAR1 -A*TFT(K)**2.5 
GO TO 110 

90 IF(NCGCL.EQ.2)G0 TO 100 
D1-D1+AA 
D2- 0. 

04-04+ AA*TST AR1+CFT+ C TWAD-TFT (KB > -A*TFT C K )**2. 5 

GO TO 110 
100 01-01+ AA 
02 - 0 . 

D3-03+CFTTRN+TRNSC0-CFT 

04-04+ *CFTTRN-CFT)*TFT(K)+TRN$C0+TAN+AA«T$TAR1 -A*TFT(K)*«2. 5 
110 IF (IPR1NT.EQ.1 ) WRITE (6,2) NC00L,K,NHT1« INXAN 
I F (04 • LE • 0 • ) G0T0290 
CALL Tfc!SOLN(K, 01 «02« 03,04, DTH1) 

IF (INXAN. EG. 2) GO TO 200 

STORE REQUIRED VARIABLES 

TWA(K)-DTW1 

C2A(K)*CAN*(TWA( K)-T AN) 

IF (KANHET.EO.l .ANO.LANHET .EQ.l )G0 TO 190 
GO TO (120, 120, 130,130), NHT1 
120 R1A(K)«A« (TFT(K)*«2.5-TWA(K)*«2.5) 

GO TO 140 

130 R1A(K)-AA« iTSTARl-TMA(K)«»4) 

140 GO TO (170,150, 170,150) ,NHT1 
150 IF (NC0CL.EQ.2)G0 TO 160 

CiA(K)-CFT«(THAOA(K)-THA(K)) 

GO TO 180 

160 C1A(K)«CFTTRN*(TFT(K)-TWA(K) ) 

OTRAl K)-TRMSCO«(TWA(K)-TAN) 

GO TO 180 

170 ClA(K)-CFT«(TFT(K!-TliAtK)) 

180 REAAN(K)«REAN 
PRAAN(K)-PRAN 
TNUAAN(K) -TNUAN 
R2A(K)-B*(TWA(K)*#4-TCAS**4) 

TANANA(K)-TAN 

01ACKI-D1 

02A(K)-02 


HTl 2430 
HT1 2440 
HTl 2450 
HTl 2460 
HTl 2470 
HTl 2480 
HTl 2490 
HTl 2500 
HTl 2510 
HTl 2520 
HTl 2530 
HTl 2540 
HTl 2550 
HTl 2560 
HTl 2570 
HTl 2580 
HTl 2590 
HTl 2600 
HTl 2610 
HTl 2620 
HTl 2630 
HTl 2640 
HTl 2650 
HTl 2660 
HTl 2670 
HTl 2680 
HTl 2690 
HTl 2700 
HTl 2710 
HTl 2720 
HTl 2730 
HTl 2740 
HTl 2750 
HTl 2760 
HTl 2770 
HTl 2780 
HTl 2790 
HTl 2800 
HTl 2810 
HTl 2820 
HTl 2830 
HTl 2840 
HTl 2850 
HTl 2860 
HTl 2870 
HTl 2e80 
HTl 2890 
HTl 2900 
HTl 2910 
HTl 2920 
HTl 2930 
HTl 2940 
HTl 2950 
HTl 2960 
HTl 2970 
HTl 2980 
HTl 2990 
HTl 3000 
HTl 3010 
HTl 3020 
HTl 3030 
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D3A(K)*D3 

HT1 

3C40 


D4A(K)-D4 

HT1 

3050 



HT1 

3060 


SET CALCULATION TO OUTER ANNULUS 

HT1 

3070 



HT1 

3080 

190 

INXAN*2 

HT1 

3090 


AAN «AAN^(K) 

HT1 

3100 


AFAN-AFANB(K) ’ 

HT1 

3110 


DAN-OANB(K) 

HT1 

3120 


TAN»TANANB(K) 

HU 

3130 


TCAS-TCASB(K) 

HT1 

3140 


GO TO 10 

H71 

3150 



HT1 

3160 


STORfe REQUIRED VARIABLES 

HT1 

3170 


TWB(K)«DTH1 

H71 

3180 

200 

HT1 

3190 


C2B( K)*£AN«(TW8( K)-TANJ 

HT1 

3200 


IF(KANHET.EQ.1.AND.LANHET,EQ.1K0 TO 280 

HT1 

321C 


GO T0(210t210»220» 220 ) »NHT1 

HT1 

3220 

210 

R1B(K)-A*(TFT(K)«»2.5-TWB(K>*«2*5) 

HT1 

3230 


GO TO 230 

HT1 

3240 

220 

R1B(K)*AA«(TSTAR1*TUB(K)*«4) 

HT1 

3250 

230 

GO TO ( 260 • 240 * 260 1 240 ) • NHT 1 

H71 

3260 

240 

IF(NC00L.E0.2)60 TO 250 

HT1 

3270 


C1B(IO»CFT«CTWAOB(K)-TWB<K|I 

HT1 

3280 


GO TO 270 

HT1 

3290 

250 

C1B(K)«CFTTRN*(TFT(K)~ TWB(K) ) 

HT1 

3300 


QTRB(K)*TRNSC0«(THB(K)-TAN) 

HT1 

3310 


GO TO 270 

HT1 

3320 

260 

C18(K)-CFT«(TFT(Kl-TWB(K)) 

HT1 

3330 

270 

REBAN (K)*REAN 

HT1 

3340 


PRBAN(K)-PRAN 

HT1 

3350 


TNUBAN (K)»TNUAN 

KT1 

3360 


R2 B( K ) »B« (TUB ( K) ««4-TCAS**4 ) 

HT1 

3370 


TANANB (K)*TAN 

HT1 

3380 


D1B(K)*D1 

HT1 

3390 


D2B(K)«D2 

HT1 

3400 


D3B(K)*03 

HT1 

3410 


D4B( K)*D4 

HT1 

3420 


FM0C02 (K)»FHC02 

HT1 

3430 


FM0H20(K)«FHH20 

HT1 

3440 

280 

IF (K« EC* NL AST) GO TO 290 

HT1 

3450 


K»K*l 

HT1 

3460 


GO TO 5 

HT1 

3470 

290 

RETURN 

HT1 

3480 


ENO 

HU 

3490 
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$I8FT(. HT2 


LIST 


;4 


c 

c 

c 


HT2 

SUBROUTINE HEAT*. HT2 

HT2 

SUBROUTINE HEAT2 HT2 

HT2 

THIS SUBROUTINE CARRIES OUT AN ITERATIVE HEAT-TRANSFER CALC. HT2 

HT2 

THIS SUBROUTINE CALLS FOR ONE SUBROUTINE HT2 

1. THSOLN HT2 

HT2 

THIS SUBROUTINE IS USEO BY THE NAIN PROGRAM CLARE HT2 

HT2 

THE ROUTE THROUGH THIS PART OF THE PROGRAM IS CONTROLLED BY HT2 

THE INCEX NHT2 HT2 

HT2 

NHT2 » 2 FOR LONGITUCINAL HALL CONDUCTION HT2 

KHT2 - 3 FOR RADIATION INTERCHANGE BETWEEN NALLS HT2 

NHT2 - 4 FOR LONGITUCINAL CONDUCTION ANO RADIATION HT2 

INTERCHANGE HT2 

NHT2 • 1 IF NONE OF THESE OPTIONS ARE REQUIREO HT2 

HT2 

THIS SUBROUTINE USES COMMON BLOCKS WHOSE NAMES CONTAIN THE NUMBER 8 HT2 
VIZ- B8 t BIB, 868, 6168, 8178, B67B, B1678, B12678 HT2 

. HT2 

C0NMON/nZERG/TWAX(48)»TWBX(A3)»R6ST(#KI HT2 

COPMON/06/01A(4))t0tA(49)»DIA(4llf 04A Mi) 1 018(41 )iD8BU9) • DSB ( 49 ) HT2 
1, 04B(45), FP0C02<45)«PM0H20M5),C1A(4S)#C1B(4S),A1A(45),R1B(4J) *82 HT2 

2 A (45) ,R2B (45) , R3AI45) , R3B ( 45 ) , TNUAAN( 43 ) , TNUBAN( 43 ) * TNUFT (45 ) , HT2 

3 TWADA (45 ) ,TWADB(45 ) , KT2 

4cMFT(45),FILMFA(45),FILMFB(45)» PR A AN ( 45 ) ,PR9AN (45) ,PRFT(45) ,REFT (4HT2 
55) ,FINT(45)»TCFA(45) » TCFB ( 45 ) ,UFTA( 4 5 ) , UFTB ( 45 ), UJ1A ( 45) ,UJ1B(45) »HT2 
6AFJAI45), AFJB(45),YCFA(45I»YCFB(45) HT2 

COMMON/ B18/ABSW* EMW, EMCyNLUM, NHT1,NHT2 HT2 

1 , X1FCA(45 ) t K 1 FCB ( 45 ) » CONDFTf TCASA ( 4 5 ) » TCASB (45 ) ,TOLTW1,TOLTHT2 

2 W2 ,XF I LMZ , TABTFTt 10) ,TABEFT( 100),TABPFT ( 10) ,NEFT,NPFT,NFORMHT2 

3. NC00L, NUMAX1, NUMAX2 HT2 

COMMON/ B68/AF ANA ( 45 ) yAFANBC 45), AFFT(45),AFPRZ,C2A(45) »C2B(45) HT2 

1 • AFSYP, FARFT ( 4 5 ) , OENANAt 4 5 ) , DENANB ( 45) HT2 

3 ,SAFTRA (45) ,SAFTP8(45) ,0TRA(45 ), QTRB( 45) ,REAAN(45) , REBAN (45) HT2 

4 , TWA ( 45 ) ,THB (45) HT2 

CC*'M0N/B168/AANA(45) , AANB(45),CCA(45), CCB( 45), FHCR,NLAST HT2 

1 , KANHET,LANHET , PERCO, THIKFT HT2 

2 , DANA (45) ,DANB(45) HT2 

COMMON/ B178/DFT( 45) HT2 

COMMON/ 667 8/ PR EFT (45 ) , PREANAI45) , PREANBf 45) , TFTC45) , TANANA (45) ,TANHT2 

IAN6(45),AFJ1(50) ,UFT(45) HT2 

C0MM0N/B1678/NSHCP» XCP (45 ), AFT (45), PI HT2 

1 ,NHH ( 50 ) t KJSN( 45, 6) ,HAU( 50 ) ,CFTA( 45), CFTB( 4 5), NAB ( 50) » NCODEA (45) HT2 

2 .N'CODEB (45 ) ,TZ HT2 

COMMON/BI 2678/ JT APE ,IPRINT HT2 

HT2 

DIMENSION NAME (2 ) HT2 

HT2 

DATA(N4ME(I)»I*1#2)/12H INNER OUTER/ HT2 

HT2 

1 FORMAT (6H AFTERI4»30H TRIALS, ERROR IS GREATER THAN,F9.2,6H DEG RIHT2 

2 FORMAT (2I5*5X,4E12.4) HT2 


39 FORMAT(/////51HODIMENSIONLESS GROUPS ASSOCIATED WITH HEAT TRANSFERHT2 
1 /I X50 ( 1H-) /6H0 AX I AL16X15HREYN0LDS NUMBER 15X14HPRANDTL NUMBER12X14HHT2 


0C1C j 
002C 
0C30 
OC40-, 
005C . 
0060 1 
0070 
0080 
oc9o.: 
0100 
one 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0290 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
038C 
0390 
0400 
0410 
0420 
0430 
0440 
0450 - 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
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2NUSSEIT NUMBER/9H P0SITI0N/5H FR0M16X6HANNULI11X5HFLAME1X2(9X16HANHT2 0600 
3NULI FLAME)/11H COMPRESSOR 27X4HTUBE2X 2I20X5HTUBE )/10H 01 SCHT2 0610 
4HARGE6X3HINNER 6X5H0UTER16X2( 14H INNER OUTER UX)/7H INCHES//UX HT2 0620 
5F8.3»3X3Ell*3,3X3F7.3t4X3F7.2)) HT2 0630 
4 FORMAT (/////20H0HEAT TRANSFER RATES/1X19I lH-)/6H0AXIAL12X2(20H HEHT2 0640 

I AT TRANSFER RATE12X) # 9HRADIATI0N6X16HHEAT TRAN SFERRED/9H P0SITI0N1HT2 0650 
2 1X18HFR0M FLAME TO WALL14X 19HFR0M WALL TO ANNULI 10X11HINTERCHANGE5HT2 0660 
3X16HTC TRANS PI RAT I ON/ 5H FR0M11X2(21H BTU PER SO FT SEC11X) * 13HFHT2 0670 
4R0M 0PPGSITE4X15HAIR IN THE WALL/11H C0MPRESS0R69X12HWALL BTU PER5HT2 0680 
5X15HBTU PER SEC PER/10H 0ISCHARGE2I 7X23HRA0IATI0N C0NVECTI0N2X)HT2 0690 
6 » 8X9HSC FT SEC5X18HSQ FT WALL SURFACE/7H INCHES/14XA6, 1XA6.2XA6, 1XHT2 0700 
7A6,4XA6,lXA6 t 2XA6,lXA6t5XA6, 1XA6,6XA6» 1XA6//UXF8.3, 1X2( F10. 3,F7. 3HT2 0710 
8tF8.3fF7.3)»2(F11.3»F7.3m HT2 0720 

41 FORMAT (/////25H0HEAT TRANSFER PARAMETER5/1X24I 1H-) /6H0AXI AL8X18HEMHT2 0730 

I I SSI VI TY FLAME12X12HFILM-C0QLIN617X17HWALL TEMPERATURE S/36H P0SIHT2 0740 
2TI0N OF FLAME INTENSITY8X13HEFFECTIVENESS22X5HDE6 F/5H FR0HT2 0750 
3M22X7HBTU PER/11H COMPRESSOR 16X9HSQ FT SEC33X9HADIABATIC9X6HACTUALHT2 0760 
4/10H DISCHAR6E/7H INCHES32X24H INNER WALL OUTER NALL 2I17H INNHT2 0770 


5ER OUTER)//! lXF8*3»F12«3tF13*3« 2F12*3* 5X2(F9*1»F8*1) )) HT2 0780 

C HT2 0790 

NUM*1 HT2 0800 

20 K-l HT2 0810 

C HT2 0820 

C SET LARGEST ERROR SO FAR TO ZERO HT2 0830 

C HT2 0840 

BIGDI F*0* HT2 0850 

C HT2 0860 

C SET CALCULATION TO INNER ANNULUS HT2 0870 

C HT2 0880 

30 INXAN-1 HT2 0890 

40 IF (K* EC.DGO TO 300 HT2 0900 


•CALCULATE LONGITUDINAL CONDUCTION EFFECT 
C 

IF (K* EC* NL AST) GO TO 400 
GO TO 1450 »50, 90» 50 ) f NHT2 
50 IF(INXAN.EO*2)GO TO 70 
0£LTW1*TWA (K-l )-TWA( K ) 

DELTW2*TWA(K)-TWA(K‘* > 1) 

GO TO 80 

70 DELTW1*TWB (K-l l-TWBCK) 

DELTW2*TWB (K)-TWB! K+l ) 

80 0ELX1*XCP ( K)— XCPIK-l ) 

DELX2-XCP(K*1)-XCP(K) 

DELK-2.*CONDFT*THIKFT*(OELTW1/OELX1/(OELX1+OELX2)-DELTW2/OELX2/ 
1 (0ELX1+DELX2 ) ) /3600. 

IF (NHT2«EQ«2)G0 TO 130 
C 

C*««***CALCULATE TOTAL RADIATION INTERCHANGE EFFECT 
C 

90 $1*0 
S2*0 

NN*NLAST-1 

00 120 KK*2«NN 

XI *( XCP (KK+1 )-XCP( KK-1 ) )/2« 

IF (I NX AN* EQ« 2) GO TO 100 
0UMR4-(CCA(XK)/PI«DANA(KK)4DFT(KK))/2« 

DUMR5* (CCA(K)/PI+DANA(K))/2* 

X3-TWB(KK)««4 
GO TO 110 

100 DUMR4- ( CC A ( KK ) /P I+OANA (KKH/2* 


HT2 0910 
HT2 0920 
HT2 0930 
HT2 0940 
HT2 0950 
HT2 0960 
HT2 0970 
HT2 0980 
HT2 0990 
HT2 1000 
HT2 1010 
HT2 1020 
HT2 1030 
HT2 1040 
HT2 1050 
HT2 1060 
HT2 1070 
HT2 1080 
HT2 1090 
HT2 1100 
HT2 1110 
HT2 1120 
HT2 1130 
HT2 1140 
HT2 1150 
HT2 1160 
HT2 1170 
HT2 1180 
HT2 1190 
HT2 1200 
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DUMR5 S (CCA (K)/PI*DANA(K)+OFT(K ) ) / 2 • HT2 

X3=TWA(KK)«*4 HT2 

110 DUMR6*OUMR4-OUMR5 HT2 

X4=(0UPR6**2^(XCP(K)-XCP(KK))«*2I**1.5 HT2 

X2=14.82/(14*82-MFM0C02(K)+FM0H20(Kn*SQRT(DUMR6**2*(XCP(KHXCP HT2 
1 (KK) ) **2 ) *PREFT (KM HT2 

$1=S1+X1*X2*X3*DUMR4/X4/DUMR5 HT2 

S2»S2+X1*X2*DUMR4/X4/DUMR5 HT2 

120 CONTINUE HT2 

HT2 

FORM CORRECTED OPPOSITE WALL TEMPERATURE HT2 

HT2 

TSTAR2*S1/S2 HT2 

HT2 

>*****CALCULATE TOTAL RADIATION COEFFICIENT FROM OPPOSITE UALLyAAA HT2 

HT2 

AAA=2.4E-13*EMW**2*DFT(K)**2*S2 HT2 

IF (I NX AN* EQ» 2) GO TO 125 HT2 

DELP=AAA*(TSTAR2-TWA(K)**4) HT2 

GO TO 130 HT2 

125 DELR= A A A* ( TSTAR2-TWB ( K )**4 ) HT2 

130 IF(NHT2«EQ*1)G0 TC 450 HT2 

HT2 

MODIFY COEFFICIENTS IN HEAT BALANCE EQUATION HT2 

HT2 

IF(INXAN.EQ.2)G0 TO 170 HT2 

01=D1 A (KJ HT2 

D2=D2 A (K) HT2 

03=D3 A (K) HT2 

GO TO (450 » 140*150* 160 ) » NHT2 HT2 

140 IF(ABS(DELK).GT.(0.05*D4A(KM)G0 TO 145 HT2 

D4=D4A (K) +0ELK HT2 

GO TO 200 HT2 

145 D4=D4A (K) +DELK«0*05*D4A( K)/ABS(DELK) HT2 

GO TO 200 HT2 

150 IF(ABS(OELR).GT. (0. 05*04 A(K)>) GO TO 155 HT2 

D4=D4A(K)+DELR HT2 

GO TO 200 HT2 

155 D4=D4A(KHDELR*0.05*D4A(K}/ABS(DELR> HT2 

GO TO 200 HT2 

160 IF (ABS (DELK+DELR ) *GT • (0.05*D4A(K ) ) )G0 TO 165 HT2 

D4=D4 A (KMDELK-fDELR HT2 

GO TO 200 HT2 

165 D4=D4A(K)*(0ELR+0ELK)*0.05«04A(K)/ABS(0ELR+DELIO HT2 

GO TO 200 ’ HT2 

170 01=01 B (K) HT2 

D2=D2B (K) HT2 

D3=D3B(K) HT2 

GO T0(450*171» 180*190 ) »NHT2 HT2 

171 IF (ABS (OELK) *GT* (0*05*D4B(K) HGO TO 175 HT2 

D4*D4B(K)+DELK HT2 

GO TO 200 HT2 

175 D4*D4B(K)+DELK«0*05»D4B(K) /ABS (OELK) HT2 

GO TO 200 HT2 

180 IF (ABS (DELR) *GT* (0*05«D4B(K) ) ) GO TO 185 HT2 

D4=D4B(K)*0ELR HT2 

GO TO 200 HT2 

165 D4»G4B (K)+DELR*0 *05*048(10 /A8SICELR) HT2 

GO TO 200 HT2 

190 IF (ABS (DELK-fOELRKGT • (0*05*D48(K) ) )G0 TO 195 HT2 

04*048 (Kl+DELK+DELR HT2 


1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1530 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

167C 

168C 

1690 

1700 

1710 

1720 

173C 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 
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GO TO 200 HT2 

195 D4-D4B(K) + <DELR+0ELK)<»0.05«04B{KI/ABStDELR4DElK) HT2 

200 IF(D4.LE.0.)GOTO490 HT2 

CALL TWS0LNIK,Dl,D2,D3,D4»0TWn HT2 

IF(INXAN.E0.2)G0 TO 230 HT2 

TWAX ( K)» { TWA ( K I+DTWl )/2. HT2 

R3A<K)»AAA«(TSTAR2-TWAX(K)«*4) HT2 

INXAN*2 HT2 

GO TO 40 HT2 

230 TWBXt K)» ( TWB ( K l+DTWl )/2. HT2 

R3B(K)*AAA«(TSTAR2-TWBX(K)*«4) HT2 

300 K-K+l HT2 

GO TO 30 HT2 

HT2 

CALAULATE FIRST ANO LAST CALCULATION POINT TEMPERATURES IY LINEAR HT2 
EXTRAPOLATION HTI 

HT2 


400 TWAX(l)»(TWAX(2)-TWAX(3n«<xePm-XCP<in/(XCPO>-XCPt2n4THAX(2) HT2 

TWBXm«(TWBX(2>-TWBXI3))*(XCP(2)-XCPtin/(XCPm-XCPt2»)4TWBX{2) HT2 
TWAX( NLAST)=*(TWAX(NLAST-1)-TWAX(NL AST-2) )*(XCP(NLAST)*XCPINLAST-1)HT2 


1 ) / (XCP (NLAST-1 )-XCP( NLAST-21 >+TWAX(NLAST-l ) HT2 

TWBX ( NLAST)* (TWBX ( NL AST-1 I— TWBX (NLAST-2) )«(XCP(NLAST)*XCP(NLAST-1 )HT2 
1 )/ (XCP(NLAST-1 )-XCP(NLAST-2) l+TWBXl NLAST-1 ) HT2 

DO 430 NN»l f NLAST HT2 

HT2 

COMPARE EACH ERROR WITH THE LARGEST ERROR ANO STORE THE LARGEST HT2 

HT2 

DIFF*A6S(TWAtNN)-TWAX(NNl ) HT2 

IF(OIFF.LE.BIGDIF)GO TO 410 HT2 

BIGOI F=*DIFF HT2 

410 DIFF»AES(TWB(NN)-TWBX(NN) ) HT2 

IF(DIFF.LE.BIGDIF)GO TO 420 HT2 

BIGOI F*DI FF HT2 

HT2 

SUBSTITUTE PREVIOUS TEMPERATURE DISTRIBUTION BY CURRENT TIKPERATURHT2 

DISTRIBUTION H72 

HT2 

420 TWAINN)=TWAX(NN) HT2 

TWB(NN)«TWBX(NN) HT2 

430 CONTINUE HT2 

HT2 

COMPARE LARGEST ERROR KITH TOLERANCE HT2 

HT2 

l f (BI6CIF.LE.TCLTW2)GC TO 450 HT2 

HT2 

CHECK THAT LOOP COUNTS!! HAS NOT BEEN EXCEEDED HT2 

HT2 

IFINUM.LT. NUMAX2IG0 TO 440 HT2 

WRITE (6yl)NUMAX2*T0LTM2 HT2 

GO TO 450 HT2 

440 NUM=NUM+1 HT2 

GO TO 20 HT2 

450 DO 460 KK-l.NLAST HT2 

XCP(KK)sXCP(KK)«12. HT2 

IF(TWAOA(KK).NE.O.)TWADA(KK)-TWAOA(KK)-TZ HT2 

IF(TWACB(KK).NE.O.)TWADB(KK)«TWADB(KK)-TZ HT2 

TWA(KK)»TWA(KK)-TZ HT2 

460 TWB(KKi«TWB(KK)-TZ HT2 

HT2 

WRITE OUT ALL REQUIREO OUTPUT HT2 

HT2 


1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

19T0 

1900 

1990 

2000 

2010 

2020 

2C30 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

235C 

2360 

2370 

2380 

2390 

2400 

2410 

2420 



238 


WRITE (JTAPE, 39 MXCP(K), REA AN(K)*REBAN(K) ,REFT(K J.PRAANCK), PRBANIIOHT2 

1 yPRFT ( K) yTNUAAN! K) »TNUBANIK )» TNUFT (K) *K“ 1*NLAST) HT2 

WT.ITE ( JTAPE,4) U NAME (XCP(K) ,R1A(K J yR IB (K ) ,C1A( K HT2 

1 ) yClB ( K) » R2A(K ) * R2BIK) y C2A(K) , C2B(K ) , R3A(K ) ,R38(K) yQTRA(K) yQTRBt K)HT2 

2 yK=l y NL AST ) HT2 

WRITE! JTAPE,4lMXCPCK),EMFT(K)yFINT<K),FILMFACK),FILMFBtlO t THADA(KHT2 

l),TWADB!K),TWA!lO,TWB<K)yK«lyNlAST) HT2 

DO 480 KK*1,NLAST HT2 

XCP(KK)*XCP(KK)/12» HT2 

TWA(KK)*TWA!KKM>TZ HT2 

480 TWB( KK )*TWB( KK )+TZ HT2 

490 RETURN HT2 


END 


HT2 2550 
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SIBPTC TWAL 


SUBROUTINE TWSCLN(K»DI»D2»D3»D4»DTW1) 


SUBROUTINE TNSOLN 


THIS 


SUBROUTINE 
D1 * TW«*4 


USES 

♦ 


THIS SUBROUTINE 

1. HEAT1 

2. HEAT2 


NEWTONS METHOD TO SOLVE THE HEAT BALANCE 
D2 * TW**2.5 ♦ D3 * TW » D4 

IS CALLED FOR BY TWO SUBROUTINES 


IS SUBROUTINE USES COMMON 
VIZ- B8 » B18 * B68, Bl68» 


BLOCKS 

B178» 


WHOSE 

B678> 


NAMES CONTAIN 
B1678, BI2678 


THE NUMBER 8 


TWALOOIO 
TWAL0020 
TWAL0030 
TWAL0040 
TWAL0C50 
EQUATITWALOC60 
TWAL0070 
TWAL0080 
TWAL0009 
TWALOOIO 
TWAL0011 
TWAL0012 
TWAL0013 
TMAL0014 
TWAL0015 

COMMON/ B8/D1A1 45 )jD2A(45)»D3A(45)»04Al45).DlB<45) .028(45) .D3BC45) TWAL0016 
l f D4Bl45),FM0C02(45),FM0H20(45),ClA<45).ClB(45),RlA<45),R18<45),R2 TWALC017 
2A<45) ,R2B<45).R3A(45)»R3B(45)»TNUAAN145),TNUBAN(45),TNUFT(45), TWAL0018 
3TWADAC45) ,TWADB(45). TWAL00I9 

4FMFTI 45 ) * F ILMFA( 45 ) » F ILMFfi 145). PRAAN( 45 ) *PRBAN (45) *PRFT (45) .REFT C4TWAL0020 
55) ,FINT(45)*TCFA(45) » TCFB( 45 ) *UFTA( 45)«UFTB 1 45 ) .UJ1A(45) »UJ1B(45) * TWAL0021 
6AFJA{45),AFJB(45),YCFA145),YCFB(45) TWAL0022 

CCMM0N/B18/ABSW. EMW. EMC.NLUM* NHT1*NHT2 TWAL0C23 

1, XlFCA(45) f XlFCBC45)» CONDFT, TCASAI45 ) t TCASB (45) .TOLTWl. TOLTTWALOC24 

2 W2 »XF I LMZ f TABTFm0),TABEFT(l00),TA8PFT(l0),NEFT.NPFT.NFORMTWAL0025 

3 fNCOOLt NUMAX1.NUMAX2 

CCMM0N/B68/AFANA(45), AFANB (45) , AFFT( 45) , AFPRZ»C2A(45) .C2B(45I 
1 , AFSYP. FARFT(45)» DENANA(45) .DENANB145) 

3,SAFTRA(45),SAFTRB{45),QTRA(45).QTRB(45>,REAAN(45).REBAN(45) 

4.TWA145) ,TWB(45) 

CCMMON/B168/ AANA145 ) »AANB(45)»CCA(45) *CCB(45)*FHCR. NLAST 
1 ,KANHET,LANHET,PERCO.THIKFT 
2»DANA(<i5) »DANB(45) 

C0MM0N/B178/DFT l 45 ) 


TWAL0026 

TWAL0027 

TWAL0028 

TWAL0029 

TWAL0C30 

TWAL0031 

TWAL0C32 

TWAL0033 

TWAL0034 


CUPWUN/dWiJ/UM 

COMMON/ B678/PREFT ( 45 ) .PREANAI45) » PREANBC 45 ) »TFT(45) * TANANA(45I fTANTWAL0035 

. . . .. .. .. t YLAI flniA 


1ANB(45),AFJI(50),UFT(45) 

CCKM0N/B1678/NSHCP»XCP( 45 )»AFT(45)*PI 
1 ,NHHt 50 ) »KJSN(45»6 ) » HAU( 50 ) .CFTAC45 )»CFTB( 45) »NAB(50) .NCQDEA (45) 
2 jNCODEB (45)»TZ 
COMMON/ B12678/JT APE .IPRINT 

1 FORMAT (6H AFTERI4»30H TRIALS. ERROR IS GREATER THAN»F9.2t4M DEG 

2 FORMAT (38H CHECK INPUT DATA TO SUBROUTINE TWSOLN) 


tt * 


TWAL0036 
TWAL0037 
TWAL0038 
TWAL0039 
TWALOC40 
TWAL0041 
R)TWAL0C42 
TWAL0043 
T WAL0044 

CONVERT THE COEFFICIENTS TO A MOR£ MANAGABLE SIZE ••••••••••••••TWAL0045 

TWAL0046 
TWAL0047 
TWAL0048 
TWAL0049 
TWAL0050 

AT THE SOLUTION AND CHOOSE THE ONE WHICH TWAL0G51 

POSITIVE ERROR ••••••••••••••••••<hmMm»«««MMHHTWAL0C52 

TWAL0053 

~ TWAL0054 

DUMERl«DEEl*0TWl«*4<f0EE2*0TWl**2.5*DEE3*DTWl-D4 • TWAL0055 

DTW2*(04/DEE2)**0.4 TWAL0056 

DUMER2*DEE1*DTW2**4+OEE2*OTW2**2.5*DEE3*OTW2-D4 TWAIO057 

DTW3-D4/0EE3 TWAL0058 

PUHSR3»0EE1*DTW3**4+0E£2*0TW3**2«5+0SE3*DTW3-D4 TWA10059 


DEE1=DI*10.**12 
DEE2*D2*3. 11*10. **7 
DEE3=D3*10.**3 

*** MAKE FIRST GUESSES 
GIVES THE SMALLEST 

DTWl* (04/ DEED **0.25 




.",‘f Ji' ,1 C .. ill i. 


101 
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DTW4*TFTCK1/1000. 

DUHER4«DEE1*0TW4»M40EE2«»DTW4»*2*5+DEE3*DTW4-D4 
IF( DTH1. LE.DTW2. AND. DUHERl.GE. 0.160 TO 10 
0TW1«0TW2 

10 IF(DTM1.LE.0TW3.AND.0UMER2.GE.0.)C0 TO 20 
DTW1-DTW3 

20 IFCDTWI.LE.0TW4.AND.DUMER3.6E.0.IG0 TO 30 
DTW1*DTW4 

IFCDUMER4.6E. 0.160 TO 30 
WR1TE(6,21 
30 NUM*1 


CALCULATE A NEW VALUE USING NEWTONS METHOD 


TWAL0060 

TWAL0061 

TMAL0062 

TWAL0063 

TWAL0064 

TWAL0065 

TWAL0066 

TNAL0067 

TWAL0068 

TWAL0069 

TWAL0070 

TWAL0071 

TWAL0072 


TWAL0073 

40 DTWl»0TWl-(DEEl«DTNl««4*DEE2«DTWl*«2.54DEE3«DTWl-04)/(4'«DEEl«DTWlTWAL0074 


1**3+2*5*DEE2*0TW1*«1.5+DEE3) 
0UHERl-0EEl*DTHl«*4*DEE2*DTWl**2.5*DEE3*DTWl-04 
IF( D4*DEE2.LT .0.1DTW2*0. 
IF«04*0EE2.GT.0.1DTW2«CD4/DEE21**.4 
IF<DEE2MDTW1-T0LTW1/1000.1.GE.0.1 


TWAL0075 

TWAL0076 

TWAL0077 

TWAL0078 

TWAL0079 


IDUNER2»DEE1*C DTWl-TOLTWl/lOOO. )**4*DEE2» <DTV1-T0LTW1/1000. )«*2.5* TWAL0080 


1DEE3*( DTWl-TOLTWl/lOOO. 1-04 


TWAL0081 


DUHER3-DEE1M DTW1+T0LTW1/1000. )«*4*DE62* IDTWUTOLTWi/lOOO. )*«2.5* TWAL0082 
1DEE3*! r T Wl4TOLTWl/1000. 1-04 TWAL0083 

!F( (DUMt:Rl.GE«0..AN0.DUMER2.LE.0« 1 .OR. (DUMER1.LE.0.. AND. DUMER3.GE.TWAL0084 
10.1)60 TO 50 TWAL0085 

NUH*NUH+1 TWAL0086 

IFCNUH.LE.NUMAX11C0 TO 40 TWAL0087 

WRITE! JT APE, 1 )NUNAX1,T0LTW1 TWAL0088 

50 0TW1-DTW 1*1000. TWAL0089 

RETURN TWAL009Q 

END TWAL0091 
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SIBFTC EEF 


LIST 


SUBROUTINE EEFT(K) 


SUBROUTINE EEFT 


THIS SUBROUTINE EVALUATES THE 
OF FIVE CORRELATIONS, OR FROM 


FLAME EMMISIVITY 
TABULATED DATA. 


FROM ANY ONE 


SUBROUTINE EEFT IS CALLED FOR BY ONE SUBROUTINE 
1. HEATl 

THIS SUBROUTINE USES COMMON BLOCKS WHOSE NAMES CONTAIN 
VIZ- B8, BIB , B68, BI68, B178, B678, B1678, B12678 


THE NUMBER 8 


EEFT0010 

EEFT0C20 

EEFTOOBO 

EEFT0040 

EEFT0050 

EEFT0C60 

EEFT0070 

EEFT0C80 

EEFT0090 

EEFTOIOO 

EEFTOIIO 

EEFT0120 

EEFT0130 

EEFT0140 

EEFT0150 

EEFT0160 

EEFT0170 


10 


20 


C0MM0N/B8/D1A(45),02A(45),D3A(45),D4A(45),D1B(45),D2B(45),D3B(45) 

1 ,D4B{45) , FM0C02 (45 ) , FM0H20 (45)*C1A(45),C1B(45)*R1A(45)*R1B(45)*R2 
2 A ( 45 ) ,R2B(45),R3A(45), R3B( 45 ),TNUAAN ( 45 ) ,TNUBAN( 45) » TNUFT(45) , 

3THADA (45) ,TWADB(45), 

4EMFT(45)»FILMFA(45),FILMFB(45)»PRAAN( 45 ) , PRBAN (45) ,PRFTf 45) , REFT (4EEFT0180 
55),FINT(45),TCFA(45),TCFB(45),UFTA(45),UFTB(45),UJ1A(45),UJ1B(45),EEFT0190 
6AFJA(45),AFJB(45),YCFA(45),YCFB(45) EEFT0200 

C0MM0N/B18/ABSW, EMW , EMC, NLUM, NHT1 ,NHT2 EEFT02I0 

I , X1FCA(45)»X1FC8(45), CONDFT, TCASA (45)»TCA$B(45) *TOLTWlf T0LTEEFT0220 

2 W2 ,XF ILMZ , TABTFTl 10),TABEFT( 100 ) , TABPFT (10) ,NEFT,NPFT»NF0RMEEFT0230 

3 ,NCOOL » NUMAX1,NIIMAX2 EEFT0240 

C0MM0N/B68/AFANA(45),AFANB(45),AFFT(45),AF.'RZ,C2A!45>*C2BI45> EEFT0250 

1 , AFSYP, FARFT(45),DENANA(45)» DENANB(45) EEFT0260 

3 , SAFTRA (45 ) ,SAFTRB (45 ) ,QTRA( 45 ),QTRB(45) ,REAAN (45) , REBAN (45) EEFT0270 

4,TWA(45),TWB(45) EEFT0280 

CCMM0N/B168/AANA(45 ) ,A AN 6(45)* CCA( 45 ) «CCB( 45),FHCR»NLAST EEFT0290 

1 , KANHET,LANHET ,PERCO,THIKFT EEFT0300 

2 , DANA ( 45 ) , DANB (45) EEFT0310 

C0KM0N/B178/DFT ( 45 ) EEFT0320 

COMMON/ 6678/ PR EFT ( 45 ) , PREANA( 45 ) ♦ PREANBI 45 ) , TFT{ 45) »TANANA (45) ,TANEEFT0330 

EEFT0340 
EEFT0350 
EEFT0360 
EEFT0370 
EEFT0380 
EEFT0390 
EEFT0400 
EEFT0410 
EEFT0420 
EEFT0430 
EEFT0440 
EEFT0450 
EEFT0460 
EEFT0470 
EEFT0480 
EEFT0490 
EEFT0500 
EEFT0510 
EEFT0520 
EEFT0530 
EEFT0540 
EEFT0550 
EEFT0560 
EEFT0570 
EEFT0580 
E6FT0590 


1ANB(45),AFJ1(50),UFT(45) % 

CQMMON/B1678/NSHCP»XCP (45 ) »AFT(45),PI 

1, NHH(50),KJSN(45,6),HAU(50),CFTA(45),CFTB(45),NA8C50)*NCODEA(45) 

2, NC0DEB(45),TZ 
C0MM0N/B12678/ JT APE ,IPRINT 

2 FORMAT (5H EEFT.10X, 5( E12.5, 2X ) , 15 ) 

IF(IPRINT.EQ.l) 

1 WRITE (6 ,2) TFT(K) , FARFT(K) ,PREFT(K) , FHCR,0FT (K) ,NLUM 

IF(FARFT(K).LE.0.)FARFT(K)«l.E-4 
IF(NLUM.E0.6)G0 TO 70 

DUMCOR— (10.«*4*( .9*DFT(K)*FARFT(K))««0.5*TFTiK)**(-l.5)> 

60 T0(10, 20,30, 50, 60, 70), NLUM 


NLUM»l 

EMFTIK) 

RETURN 

NLUM«2 

EMFT I K ) = 
RETURN 

NLUM«3 


NON— LUMINOUS CORRELATION FOR DISTILLATE FUELS 
• l.-EXP (0 «00184*PREFT(K )*OUMCOR ) 


NON- LUMINOUS CORRELATION FOR RESIDUAL FUELS 
•l.-EXP( O.OI53a *PREFT(K)«*0.75«DUMCOR) 


LEFEBVRE CORRELATION FOR LUMINOUS FLAMES 
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30 0U,;LUM=7.53*(l./FHCR-5.5)«*0.85 

40 EMFT ( K)*1*-EXP (0 •00184*DUMLUM*PREFT(K )*0UHC0R) 

RETURN 

NLUM*4 NREC 1964 CORRELATION FOR LUMINOUS FLAMES 

50 DUMLUM»EXP((1.-4,4«FHCR)/(2.3«FHCR)) 

GO TO 40 

NLUM*5 NREC 1966 CORRELATION FOR LUMINOUS FLAMES 

60 DUMLUM»((l.-FHCR«5.)/tFHCR*0.16))«*0.74 

EMFT l K)*1.-EXP (0.0000474*PREFTIK )**1.3*DUMC0R*DUMLUM) 

RETURN 

NLUM»6 VALUE INTERPOLATED FROM DATA 

70 DUMT*TFT(K) 

DUMMYP*PREFT(K ) 

CALL I NTPL8 (OUMT» OUMMYPtTABTFT* TABEFTt TABPFT»NFORMtNEFT* NPFTt 
10UMEFT ) 

EMFT f K)*DUMEFT 
80 RETURN 
END 


EEFT0600 

EEFT0610 

EEFT0620 

EEFT0630 

EEFT0640 

EEFT0650 

EEFT0660 

EEFT0670 

EEFT0680 

EEFT0690 

EEFT0700 

EEFT071C 

EEFT0720 

EEFT0730 

EEFT0740 

EEFT0750 

EEFT0760 

EEFT0770 

EEFT0780 

EEFT0790 

EEFT0800 

EEFT0810 

EEFT0820 

EEFT0830 
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$IBFTC PROP LIST 


PROPOOIO 

SUBROUTINE PROP( K, CNDAV, FMC02, FMH20 ) PR0P0C20 

PR0P0C30 

SUBROUTINE PROP PR0P0040 

PRDP0C5C 

THIS SUBROUTINE EVALUATES THE THERMAL CONDUCTIVITY, DYNAMIC PR0P0C60 

VISCOSITY, SPECIFIC HEAT, REYNOLDS NUMBER, PRANDTL NUMBER, PROP0070 

AND NUSSELT NUMBER FOR THE GAS MIXTURE IN THE FLAME TUBE* PR0P0080 

PR0P0090 

THIS SUBROUTINE CALLS FOR ONE SUBROUTINE PROPOIOO 

l. I NT PL 8 PROPOllO 

PR0P0120 

SUBROUTINE PROP IS CALLEO FOR BY ONE SUBROUTINE PROP0130 

1* HEAT1 PROP0140 

PRCP0150 

THIS SUBROUTINE USES COMMON BLOCKS WHOSE NAMES CONTAIN THE NUMBER 8 PRGP0160 
VIZ- B8, B18 , B68, BUB, 8178, B678, B1678, B12678 PR0P017C 

PRCPC18C 

CCMMON/88/DlA(45)»D2A(45)9D3A(45)»D4A(45)*DlB(45)*D2B(45),D3B(45) PRCP019C 
1 ,D4B 145), FM0C02 ( 45 ) , FM0H20I45 ),C1AC45),C18(45) ,R1A(45> ,R1B(45),R2 PR0P020C 
2 A ( 45 ) »P2B(45),R3A(45),R3B(45), TNUAAN ( 45 ) * TNUBAN(45) »TNUFT(45) , PR0P0210 

3TWADAI45) ,TWADE(45), PROP022O 

46MFTI45),FILMFA(45),FILMFB(45),PRAAN(45 J ,PRBAN (45)*PRFT(45) ,REPT (4PRCP023C 
55) ,FINT(45),TCFAC45),TCFB(45),UFTA(45) ,UFTB (45 ),UJIA(45) ,UJ1B (45 ) ,PR0P0240 
6AFJA(45),AFJB(45),YCFA(45),YCFB(45) PR0P0250 

COKMON/B18/ABSW, EMW, EMC,NLUM, NHT1.NHT2 PR0P0260 

1, X1FCA(45),X1FCB(45),CONDFT,TCASA(45),TCASBC45),TOLTW1,TOLTPRCP0270 

2 W2 ,XF I LMZ , TABTFTI 10 ),TABEFT( 100), TABPFT(IO) ,NEFT,NPFT ,NFORMPRQP028C 

3 , NCOOL , NUMAX1, NUMAX2 PRCP0290 

- ^ . *■ . « i j • • , r>isn Y A I A iS % f ABI, 


| | HI J 1 f | I | » I f ^ , f » * . 

3,SAFTRA(45),SAFTRB{45),QTRA(45)* QTRB(45) ,REAAN (451 *REBAN(45) PR0P0320 

4,TWA{45),TWB(45> PRCP0330 

CCKM0N/B168/AANA(45),AANB(45)»CCA145),CCB(45),FHCR,NLAST PROP0340 

1 ,KANHET,LANHET , PERCO,THIKFT PR0P0350 

2,DANA(45),DANB(45) PRCP0360 

COMMON/B178/DFT(45 ) PR0P0370 

C0MM0N/B678/PREFT (45 ) , PREANAI45) * PREANBI 45) ,TFT(45),TANANA (45) ,TANPR0P0380 
1ANB(45),AFJ1(50),UFT(45) PR0P0390 

C0MM0N/B1678/NSHCP,XCP ( 45), A FT (45), PI PR0P04O0 

1 , NHH( 50),KJSN(45,6) ,HAU( 50 ) ,CFTA(45) ,CFTB(45) *NAB( 50) ,NCOOEA (45) PROP0410 

2 , NCOOE8(45 ) ,TZ PR0P0420 

COPMON/B12678/JTAPE ,IPRINT PR0P0430 

PR0P0440 


C*****»C0MP ARE THE CURRENT FUEL-AIR RATIO TO THE STOICHIOMETRIC FUEL-AIRPR0P0460 
C*«***#RATIO AND CALCULATE THE MOLE FRACTIONS OF CQ2,H20*N2, AND 02 PR0P0470 


PROP0480 


FARSTO*0.0862*(1.+FHCR)/(1.+3.*FHCR) 
IF(FARFT(K).GT*FARSTO)GOTO 10 
DUMOLE*25.*FHCR+3.45*( 1*+FHCR )/FARFT(X) 
FM02«(0.72«(l.+FHCR)/FARFT(K)-8.33-25.*FHCR)/0UM0LE 
FMN2*2*75* (1 •♦FHCR)/FARFT(K)/DUHOLE 
FMC02-8.33/DUM0LE 
FMH2O«50.*FHCR/DUM0LE 
GOTO 20 
10 FMG2*0.021 
FMN2«0.748 
FMCO2*0.1 


PR0P0490 

PROP0500 

PROP0510 

PR0P0520 

PR0P0530 

PROP0540 

PR0P0550 

PROP0560 

PROP0570 

PROP0560 

PR0P0590 
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FMH20»C.131 PR0P0600 

20 Tl*TFT(K)*l.E-3 PROPOfclO 

T2=TFT(K) **2*1 .E-6 PR0P0620 

PR0P063Q 

EVALUATE THE THERMAL CONDUCTIVITY OF THE MIXTURE ***************PROPO640 

PR0P0650 

CND02 * .0155 4 ,0157*T1 PROP0660 

CNDN2 » ,013524 ,01401*T1 PROP0670 

CNDC02* .0111 4 ,0156*T1 PR0P06A0 

CNDH20*-.0145 4 ,0456*T1 PR0P0690 

CNDAV={CND02*FM02*3.184CNDN2«FMN2«3.044CNDC02*FMC02*3,534CNDH20* PR0P0700 

1FMH20*2.62)/CFM02*3.184FMN2*3.044FMC02*3.534FMH20*2.62J PR0P0710 

PROP0720 

C«***«* EVALUATE THE DYNAMIC VISCOSITY OF THE MIXTURE *****♦♦••*****• PR0P0730 

PR0P074C 

VIS02 = ,055 J 4 ,0345«T1 PR0P0750 

VISN2*. 04794. 0277*T1 PR0P0760 

VI SC 02* .04 234, 02 96 *T1 PR0P077C 

VISH20=. 01744. 039*T1 PR0P0780 

VISAV«(VI$02*FM02*5.654VISN2*FMN2*5.294VISC02*FMC02*6.624VISH20# PR0P0790 

1FMH20*4.24)/(FM02*5.654FMN2*5.294FMC02*6.624FMH20«4.24) PROP0800 

PR0P0810 

C****** EVALUATE THE SPECIFIC HEAT OF THE MIXTURE ***•**•••*••••***# PR0P0820 

PRCP0830 

CP02*.2424.01057*T1 PR0P0840 

CPN2«.2324.0313*T1-.00293»T2 PRCP0850 

CPC02=. 2284. 0454* *1-.00489*T2 PRCP0860 

CPH20* .3344. 141*T1-.0124*T2 PR0P0870 

CPAV=(CP02*FM02*32.4CPN2*FMN2*28.4CPC02*FMC02*44,4CPH20*FMH20*18.0PROP0880 
1J/(FM02*32.4FMN2«28.4FMC02*44.4FMH20*18.) PR0P0890 

PROP0900 

C*****#IF CALCULATION POINT IS IN THE PRIMARY ZONE ALLOW FOR PROP0910 

C**»***RECI RCULATION WHEN CALCULATING REYNOLOS NUMBER IN THE FLAME TUBE PR0P0920 

PR0P0930 

IF (K. GT.NSHCP) GOTO 30 PROP0940 

REFT! K)=7200.*DFT(K) *CAFPRZ4AFSYPI/< VISA V*AFT(KJ) PR0P0950 

GOTO 40 PR0P0960 

30 REFT! K )*OFT( K) *3600 »*AFFTIK )/VI$AV/AFT(K ) PRCP0970 

PR0P0980 

C******CALCULATE PRANDTL NUMBER IN THE FLAME-TUBE PR0P0990 

PRCP1000 

40 PRFT(K)=CPAV*VISAV/CNDAV PROPIOIO 

IF(REFT(K).LT,l.)REF T (K)*l. PR0P1020 

IF (PRFT(K) .LT. .01IPRFT (K)«.01 PROP1030 

PR0P1C40 

C* ***** CALCULATE NUSSELT NUMBER IN THE FLAME-TUBE PR0P1050 

PR0P1060 

TNUFT (K)»0 ,023 •REFT (K)**0.8*PRFT(K)**0.4 PR0P1070 

RETURN PROP1080 

END PRCP1090 
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tIBFTC COO LIST 

SUBROUTINE COOLtK, 1NXAN,CNDAV,TRNSC0, CFTTRN ) 
SUBROUTINE COOL 


THIS SUBROUTINE EVALUATES 
COOLING PARAMETERS 


FILM COOLING OR TRANSPIRATION 


SUBROUTINE COOL IS CALLEO FOR BY ONE SUBROUTINE 
1. HEAT1 

THIS SUBROUTINE USES COMMON BLOCKS WHOSE NAMES CONTAIN 
VIZ- B8» B18, B68» B168, 8178, 8678, B1678, B12678 


THE NUMBER 8 


CCOLOOIO 

CCCL0C20 

CCOL0030 

CG0L0C40 

C0OL0C50 

CCOL0060 

CG0L0C70 

CC010080 

C00L0C90 

CGOLOIOO 

CCOLOllO 

C00L0120 

C00L0130 

CUOL0140 

CC0LO150 

CC0L0160 


C0KM0N/BB/D1A(45),D2A(45),D3A(45) I D4A(45),D1B(45),D2B(45>,D3B(45) 

1 ,D4B(45)»FMOC02(45),FMOH20(45),C1A(45),C1B(45),R1A(45),R1B(45),R2 
2 A ( 45 ) ,R2B(45),R3A(45),R38(45 )» TNUAANt 45) , TNUBANC 45) , TNUFT C45 ) , 

3TWADA (45) ,TWAOB( 45 ) , uuu lwiuv 

4EMFT(45) , F ILMF A145 ) , F ILMFB( 45 ) ,PRAAN{ 45 ) , PRBAN (45) ,PRFT(45) ,REFT (4CC0L0170 
55) ,FINT(45),TCFA(45),TCFB(45),UFTA(45),UFT8(45),UJ1A(45),UJ1B(45)»C0C10180 
6AFJA(45),AFJB(45),YCFA(45),YCFB(45) C00LO190 

COMMON/ B1 8 /ABSW, EMW , EMC, NLUK, NHTl ,NHT2 CGOL0200 

1, X1FCA(45),X1FCB(45)» CONDFT, TCASA (45 ),TCASB(45) ,TOLTW1,TOLTCOOL0210 

2 W2 ,XF I LMZ , TA8TFT( 10),TABEFT( 100), TABPFT ( 10) *NEFT»NPFT ,NFQRMCG0L0220 

3 , NCOOL , NUM AX1, NUMAX2 CG0L0230 

C0MM0N/B68/AFANA(45 ) , AFANB( 45) ,AFFT(45), AFPRZ,C2A(45) ,C2B (45) C00LO240 

1 , AFSYP , FAR FT ( 4 5 ) , DENAN A( 45 ) , OENANB ( 45 ) CC0LO250 

3 ,SAFTRA(45),SAFTRB(45),QTRA(45),QTRB(45),REAAN(45),REBAN(45) CC0L026G 

4, TWA(45) ,TWB(45) CCCL0270 

C0MM0N/B168/ AANA (45 ) , AANB( 45 ),CCA(45),CCB(45 ) »FHCR,NLAST COOLO280 

1 ,KANHET ,LANHET ,P ERC0,THIKF7 C0OL0290 

2 , DANA (45) ,0ANB(45) CC0L0300 

CQMM0N/B178/DFT( 45 ) CC0LO310 

COMMON/ B678/PREFT (45 ),PREANA(45) ,PREANB ( 45) , TFTC 45) »TANANA(45) ,TANC00L0320 

tnni#rr\ irn/CiM IIPT I / C I fTPI 


1ANB(45),AFJ1(50) ,UFT(45) 

CGMM0N/B1678/NSHCP»XCP(45 ), A FT (45), PI 
1 ,NHH I 50 ) , K JSN( 45 ,6 ) , HAU ( 50 ) , CFTA ( 45 ) , CFTBl 45 ) , NAB 1 50 ) ,NCODEA (45) 
2 .NCOOEE (45) , TZ 
C0MM0N/B12678/ JT APE ,IPRINT 

2 FORMAT (5H COOL, 1 5,7( E12.5, 2X ) ) 

IF (NCGCL.EQ.2) GO TO 60 

£••••••«««««««• FILM COOLING CALCULATION ********•**#**••••***«•* 

SET UP DUMMY FILM-COOLING VARIABLES «**•*#****•****•••*•***••• 
TFTDYN=UFT(K)*«2/(2.*32.2*53.35) 

TFT(K)*TFT (K)*TFTDYN 
IF (INXAN.E0.2) GO TO 10 

IF(YCFA(K).EQ.O.O.OR.UJ1A(K).LT. 0.001) GO TO 45 
UFQ *UFTA(K) 

UJ1 *UJ1A(K) 

X1FC»X1FCA(K) 

YCF «YCFA(K) 

AFJ » AFJA(K) 

TCF *TCFA(K) 

PVZ*PREANA(K) 

GO TO 20 

10 IF(YCFB(K).EQ.O.O.OR.UJXB(IO.LT. 0.001) GO TO 55 
UFQ *UFTB(K) 

UJ1 «UJIB(K) 

X1FC*X1FCB(K) 

YCF »YCFB(K) 


C0010330 

CC0L0340 

C0OLO350 

CC0L0360 

CC0L0370 

CC010380 

C00L0390 

CCCL0400 

CC0L0410 

C00L0420 

C00L0430 

C00L0440 

CCOL0450 

CCOL0460 

CC0L0470 

CCOL0480 

CC0L0490 

CCCL0500 

C0CL0510 

C00LO520 

COOLO530 

CC0L0540 

CCOL0550 

CC0L0560 

CC0L0570 

CO0LO580 

C00L0590 
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AFJ • AF JB (K) 


CCOL0600 

TCF *TCFB(K) 


CCCL0610 

PVZ=PRE ANB (K ) 


CCOL0620 



•CCCL0630 

20 AVZ* PVZ*YCF*360Q./TCF/53*3 


CC0L0640 

XFlLM*0*91*(UFQ/UJl«XlFC/YCF)»*0*8*(UJl«AVZ/( 3.057E— 3+8*607E-5»TCFCGCL0650 

l-2.279E-8«TCF*«242.908E-12«TCF#«3n»*(-0.2m.4i*tXlFC/YCF*ABS(l. 

-C0CL0660 

2UFQ/UJ1 ) ) ««0*5 


CC0L0670 

IF (I PRINT* EQ* 1 ) 


CC0L0680 

* WRITE (6 ,2) KfXFILM»UFOfUJl»XlFC»YCFt AFJ»TCF 

CCOL0690 

IF(XFILM.GE.XFI1MZ«1. 43)60 TO 30 


CC010700 

IF(XFILM*LT* (XFILMZ/3*5) )G0T025 

• 

C00L0710 

FI LMEF* ( XF ILMZ/3 *5/XF ILM )*«0*22 


CC0L0720 

60 TO 40 


CC0L0730 

25 FILMEF-1.0 


CCCL0740 

GO TO 40 


C0OL0750 

30 FILMEF*XFILMZ/XFILM 


CC0L0760 

40 T WAD* TFT (K)-FI LMEF «(TFT(K)-TCF) 


C00L077C 

IF{INXAN.EQ*2)G0 TO 50 


C00L0780 

FI LMFA (K) *FILHEF 


C00L0790 

TWADA (K)*TWAO 


CCQLOGOO 

GO TO 120 


C0CLO810 

45 FILMF A(K)*0* 


CCCL0820 

TWADAIK)-TFT(K) 


CC0L0830 

GO TO 120 


CC0L0840 

50 FI LMFB (X) *FILMEF 


CCCL0850 

TWADB (K)*TWAD 


COCL0860 

GO TO 120 


CC0L0870 

55 FI LMFB (K)*0* 


CC0L0880 

TWADB(K)*TFT(K) 


CCCL0890 

GO TO 120 


CCOL0900 

(>•••••••••««•• TRANSPIRATION COOLING 


COOLO910 

60 IF(INXAN*EQ*2)G0 TO 80 


CC0L0920 

IF (K* E0*1« AND* KANHET « EQ* 1 )G0 TO 70 


CC0L0930 

IF (KANHET « EQ*1 )G0 TO 75 


CCOL0940 

TWALL*TWA(K) 


CC0L0950 

GO TO 100 


CCOL0960 

70 TWALL*(TFT(K)+TANANA(K))/2* 


CCCL0970 

GO TO 100 


C00L0980 

75 TWALL-TWA(K-l) 


C0C10990 

GO TO 100 


COOLIOOO 

80 IF(K* EO. 1* AND* KANHET • EQ* 1) GO TO 90 


CC0L1010 

IF (KANHET *EQ*1 )G0 TO 95 


C0011020 

TWALL*TWB(K) 


C00L1030 

GO TO 110 


CCOL1040 

90 TWALL* (TFT (K)+TANANB(K))/2« 


CC0L1050 

GO TO 110 


CCOLlOfcO 

95 TWALL*TWB(K-1> 


CC0L1070 

GO TO 110 


CCCL1C80 

100 TRNSC0*SAFTRA(K)«(0* 2419-0. 8181E-5*TNALLn.791E-8#TWALL«»«2-0.2743ECCCll090 

1-1 l*TWALL**3 ) 


COOLllOO 

CFTTRN*CNDAV *0.002«REFT(K)/DFT(K) 

/3600* 

ccniuio 

GO TO 120 


CCCL1120 

110 TRNSCO*SAFTRB(K)«( 0*24 19-0*8 18 1E-5«TWALL+1«791E*8*TWALL**2 < ~0*2743EC00L1 130 

i-ll*TWAU«»3 ) 


CC0L1140 

CFTTRN*CNDAV •0.002«REFT(K )/OFT(K ) 

w 

o» 

o 

o 

• 

C00L1150 

TFT(K)*TFT(K)-TFTDYN 


C00L116C 

120 RETURN 


CC0U170 

ENO 


COOL! 180 



APPENDIX V 
PROGRAM MESSAGES 


Many of tho subroutines contain format statements which are written 
out in the printout whenever the program wants to convey a particular message, 
generally as a result of an error which has arisen. A list of these statements 
is presented below; each statement is accompanied by an interpretation of the 
message end, where appropriate, an indication of what course of action should 
be taken. The statements are arranged with the first letters of the messages 
in alphabetic order to provide easy reference. 

1. AFTER (NUMAX2) TRIALS, ERROR IS GREATER THAN (T0LTW2) OEG R 
(Subroutine HEAT2, Heat-Transfer Subprogram). The Iterative sol ut I 
of the heat-balance equation has not converged to within the 
tolerance, T0LTW2, on the wall temperature after NUMAX2 attempts. 

If a solution is obtainable for the case where longitudinal conduc- 
tion and radiation interchange are Ignored, then check the Input 
data relating to these two effects; if the input 1$ correct, 
increase the values in Subroutine BLOCKDATA of either NUMAX2 or 
T0LTW2 or both. 

2. AFTER (NUMAX1) TRIALS, ERROR IS Ght £R THAN (TOLTVl) DEG R. 

CHECK INPUT DATA TO SUBROUTINE TVSOLN (Subroutine TVSOLN, Heat- 
Transfer Subprogram). The solution of the heat-balanca equation, 
using Newton's method, has not converged to within the tolerance, 
T0LTW2, on the wall temperature after NUMAXI attempts. If the 
input appears to be correct. Increase the values In Subroutine 
BLOCKDATA of either NUMAXI or TOLTVl or both. 
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3. DIFFUSER DAYA INCORRECTLY WRITTEN ON DATA TAPE (Subroutine TAPE). 
The diffuser-effectiveness data supplied as input through the 
library tape have been incorrectly specified. Check with the 

1 ibrary-data input description. 

4. EMPIRICAL FLAME-EMISSIVITY DATA INCORRECTLY WRITTEN ON DATA TAPE 
(Subroutine TAPE). See Message Number 3. 

5. HOLE DISCHARGE COEFFICIENT DATA INCORRECTLY WRITTEN ON DATA TAPE 
(Subroutine TAPE). See Message Number 3. 

6. IF THERE IS NO SNOUT, NXDIF MUST BE SPECIFIED (Subroutine INPUT1). 
NXDIF is a program input quantity. 

7. INCREASE ITERATION CYCLE LIMIT * LCANIL * OR TOLERANCE * FID * 
(Subroutine AIRFLO, Air- Flow Subprogram). This message is always 
preceded by Message Number 8. LCANIL is specified in the program 
input and FID is set in Subroutine BLOCKDATA. 

8. IN SUBROUTINE AIRFLO THE MAXIMUM NUMBER OF ITERATIONS ON THE AIR 
FLOW SPLIT WAS EXCEEDED (Subroutine AIRFLO, Air-Flow Subprogram). 
This message is followed by either Message Number 7 or Message 
Number 31 • The average of the fractions of the total air mass 
flow left at the end of the two annul i is not within the tolerance 
FID after the specified number of iterations, LCANIL. 

S. ITERATION ON ALPHA AT STATION NO. (l), CYCLE NO. (LN) HAS NOT 
CONVERGED. THE LATEST VALUES OF ALPHA ARE (ALPHA(j) , J-l .NTUBE) 
(Subroutine TUBANL, Diffuser Subprogram). The iteration to deter- 
mine the streamtube slope at the axial Station I has failed to 
converge after LN cycles. The cycle number refers to the number 
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of streamtube-boundary-layer iterations which have been made. 

The solution is continued using the empirical-data method if 
the portion of the diffuser upstream of the snout Is being 
treated; otherwise the solution is terminated. This difficulty 
is not expected to occur in reasonably shaped diffusers. 

10. ITERATION LIMIT ON TOTAL PRESSURE LOSS DUE TO HEAT RELEASE 
EXCEEDED (Subroutine PRTEMP, Air-Flow Subprogram). In the 
iterative calculation of the total pressure at the end of the 
primary zone, the change in pressure between the last iteration 
(number NTOTP) and the preceding one was greater than the limit, 
PL'MIT. The two quantities NTOTP and PLIMIT are set in a data 
statement in Subroutine PRTEMP. 

11. ITERATION ON AREA AT STATION NO. ( I ) . CYCLE NO. (I.N) HAS NOT 

CONVERGED. THE LATEST VALUES OF GUESSED AP'-A AND FLOW AREA ARE 
(SUMA, SUMB). (Subroutine TUBANL, Diffuser Subprogran) . The 
iteration in the streemtube r thod to determine the static 
pressure at the ax : *“ S.ati' , failed to converge after LN 
cycles. The cycle nur re.> r s to the rumber of streamtube- 
bc. idary- layer ite r ar n *nich have been made. The solution is 
c itinued usinc tne cmpi r ,ca' -data . the portion of the 

diffuser upstream of the snout is t ing treated; otherwise the 
solution is terminated. This difficulty Is not expected to occur 
i.. easonably sh *.d diffusers, 

12. HAS EXCEEDED <TS LIMIT iN HOLE ROW NO. (J) (Subroutine GEOM). 

the Jth hole row position, more then 6 hole rows hive bnn 

specified at this sane axial location; this is not permitted. 
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This is a program input error. 

13. K HAS EXCEEDED ITS LIMIT IN HOLE ROW NO. (j) (Subroutine GEOM). 

In the Jth hole row position, the number of calculation points, 

K has exceeded the maximum permissible number, KMAX. The value 
of KMAX is set in a data statement in Subroutine GEOM. 

14. MACH NUMBER GREATER THAN ONE. SOLUTION CONTINUED (Subroutine 
GASTBL, Diffuser Subprogram). The Mach number determined by a 
low value of static- to- total pressure ratio exceeds unity. The 
solution proceeds in this case, but the results are invalid if 
the final iteration or> mass-flow split retains this difficulty. 

This is indicative of an error in the diffuser geometry specified 
as input, or an excessively large mass-flow rate specified as 
input. 

15. MISMATCH AT THE SNOUT IS CHARACTERIZED BY THE RATIO (TOTAL 
STREAMTU2E AREA JUST BEFORE THE SNOUT)/ (FLOW AREA JUST INSIDE THE 
SNOUT). THIS RATIO IS (AR). AS THIS RATIO IS (|N/0UT)SIDE THE 
RANGE 0.8-5-1.15 THE FLOW SFLIT ON THE SNOUT (l S/I S NOT) WELL MATCHED 
(Subroutine DOUTPT, Diffuser Subprogram). This message is self- 
explanatory. 

16. NABX(l)-4 NOT ALLOWED (Subroutine GEOM). The first hole row 
specified i.' the program input must r.ot be a dummy hole, that is, 
NHTU must n. t K zero. 

17. NEGATIVE QUANTITY IN EXPRESSION FOR JET PENETRATION Subroutine 
JETM1X, A r-Fiow Subprogram). Following this message, the variables 
forming the expression for jet penetration are printed out; these 


are: 
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OENSJ (density of air in jet) 

DENFT(K) (density of flame-tube gases at Calculation 

Station K) 

UJ (initial jet velocity) 

UFT(K) (velocity of flame-tube gases at calculation 

Station K) 

X (axial distance downstream from jet origin) 

OJA (longitudinal length of hole). 

One «f these quantities will be found to be negative, indicating 
the direction in which to search for the source of the error. 
After encountering this error, the program moves to the next 
hole row and proceeds with the solution. The above message is 
not printed out if the air-flow-split iteration is in its first 
cycle or if a condensed printout has been requested (|PRINT=0). 

8. NEGATIVE VALUE CALCULATED FOR MACH NUMBER. SOLUTION TERMINATED 
(Subroutine GASTBL, Diffuser Subprogram). An attempt has been 
made to calculate the Mach number from the usual compressible- 
flow relations with any of the following: 

a. A negative static- to- total pressure ratio 

b. A static-to-total pressure ratio in excess of unity 

c. A flow area smaller than the critica' area 

The third case is of most frequent occurrance, and is indicative 
of an error in the diffuser geometry supplied as input (resulting 
In a too small passage area), a specification of an excessively 
large mass-flow rate, or an Intermediate value of the mass-flow 
split which is extreme. 



19. Nu, NH, NWH, AND NSH MUST ALL BE SPECIFIED (Subroutine INPUTl). 

All of the above quantities are to be supplied in the program 
input. The appearance of this error message means that one or 
more of the quantities were omitted. 

20. PROGRAM STOPPED IN SUBROUTINE AIRFLO. LOOP COUNTER * LCANi * 
EXCEEDED. MAX CALL FOR * EQUAN * EXCEEDED (Subroutine AIRFLO, 
Air-Flow Subprogram). The number of times Subroutine AIRFLO 
calls Subroutine EQUAN is counted. If this njmber exceeds the 
limit, LCANL, which is set in Subroutine BIOCKDATA, the program 
is returned to the Main Subprogram CLARE. 

21. PROGRAM STOPPED IN SUBROUTINE AIRFLO. LOOP COUNTER * LCFTL * 
EXCEEDED. MAX CALL FOR * EQUFT * EXCEEDED (Subroutine AIRFLO, 
Air-Flow Subprogram). The number of times Subroutine AIRFLO 
calls Subroutine EQUFT is counted, if this number exceeds the 
limit, LCFTL, which is set in Subroutine BLOCKDATA, the program 
is returned to the Main Subroutine CLARE. 

22. PROGRAM STOPPED IN SUBROUTINE PRTEMP. ITERATION LIMIT * LCPTAL * 
EXCEEDED (Subroutine Pr.l'EMP, Air-Flow Subprogram). The number 

of iterations to determine the secondary- hole mass-flow split in 
Subroutine PRTEMP Is counted. If this number exceeds the limit, 
LCPTAL, which is set in Subroutine DLOCKDATA, the iterations are 
stopped and the solution proceeds with the iast calculated value 
of the secondary- hole flow split. 

23. PROGRAM STOPPED IN SUBROUTINE PRTEMP. ITERATION LIMIT * LCPRTL * 
EXCEEDED (Subrout 'ne PRTEMP, Air-Flow Subprogram). The number of 
Iterations to determine the primary-zone temperature in Subroutine 
PRTEMP Is counted. If this number exceeds the limit, LCPRTL, which 
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is set in Subroutine BLOCKDATA, the iterations are stopped 
and the solution proceeds with the last calculated value of 
primary-zone temperature. 

24. SOLUTION FAILED TO CALCULATE STATIC PRESSURE AT COMPRESSOR EXIT 
(Subroutines EMPCTS and TUBEIN, Diffuser Subprogram). The iteration 
to determine the static pressure at the compressor exit from a 
specified mass- average total pressure and velocity profile failed 

to converge after 40 cycles. If the streamtube method is being 
used, it is replaced by the empirical-data method. The only 
time this is expected to occur is if the required solution is 
highly supersonic; hence this message indicates a mass-flow rate 
which is too large for the specified areas. 

25. SOLUTION FAILED TO CALCULATE THEORETICAL FLOW AREAS FOR A GIVEN 
FLOW SPLIT. SOLUTION TERMINATED (Subroutine TUBFW1 , Diffuser 
Subprogram). This only occurs if the mass flow to either of the 
two annuli, obtained from the air-flow subprogram, exceeds the 
total mass flow. This should never occur if the program input 
has been prepared properly. 

26. SOLUTION FAILED TO CONVERGE AFTER 40 CYCLES. SOLUTION CONTINUED 
USING EMPIRICAL DATA. THE LAST CAI CULATED BOUNDARY LAYER PARAMETERS 
ARE .... (Subroutine TUBC'TS, Diffuser Subprogram). In using 

the streamtube method between the compressor exit and the snout, 
the iteration on the boundary- 1 ayer displacement thickness failed 
to converge. In general, this will only occur in a badly separated 
diffuser. The solution continues by employing the empirical-data 



method in this portion of the diffuser; if the streamtube 
method is specified to be used in the subsequent portions 
of the diffuser, the empirical-data method Is also used there, 

27. SOLUTION FAILED TO CONVERGE IN SUBROUTINE TUBANL. SOLUTION 
CONTINUED USING EMPIRICAL DATA (Subroutine TUBCTS, Diffuser 
Subprogram). This message is always preceded by either Message 
Number 9 or 11. It is an indication that the streamtube method 
has failed to converge on either streamtube area or '’ope and 
that the empirical-data method is used in its place. 

28. SOLUTION FAILED TO CONVERGE IN SUBROUTINE TUBANL. SOLUTION 
TERMINATED (Subroutine TUBSAi, Diffuser Subprogram). This message 
is always preceded by either Message Number 9 or 11. It is an 
indication that the streamtube method has failed to converge on 
either streamtube area or slope and that the solution is terminated. 

29. SOLUTION FAILED TO CONVERGE IN SUBROUTINE TUBE IN. SOLUTION 
CONTINUED USING EMPIRICAL DATA (Subroutine TUBCTS, Diffuser 
Subprogram). This message is always preceded by either Message 
Number 24 or 31* It is indicative of a failure in the calculation 
in the streamtube method to determine the streamtube properties 

at the inlet to the first part of the diffuser. The solution 
is continued using the empirical-data method. 

30. SOLUTION FAILED TO CONVERGE IN SUBROUTINE TUBE I K SOLUTION 
TERMINATED (Subroutine TUBSAI, Diffuser Subprogram). This message 
is always preceded by either Message Number 24 or 31. It is 
indicative of a failure in the calculation in the streamtube 
method to determine the streamtube properties at the Inlet to 
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the second half of the diffuser (after the snout). The 
solution is terminated. 

31. SOLUTION FAILED TO FIND A CONVERGED VALUE OF U. PROBLEM 
TERMINATED. THE LAST TWO VALUES OF U WERE . . . (Subroutine 
TUBEIN, Diffuser Subprogram). The Iteration In the streamtube 
method to determine the appropriate value of the normal ization 
velocity U at the Inlet to a diffusing passage has failed to 
converge after 40 cycles. The solution is continued with the 
empirical-data method if the first portion of the diffuser is 
being treated, while the solution is terminated If the portions 
of the diffuser downstream of the snout are being treated. The 
latter is the more likely occurrence, and is indicative of a 
mass-flow rate which is too high for the area of the passage. 

32. TEMPERATURE IN * E3UFT * LESS THAN ZERO (Subroutine RQUPT, Air- 
Flow Subprogram). -In the iterative solution for the flame-tube 
temperature, TFT2, in Subroutine EQUFT, a negative value has 
been calculated for TFT2. This w'll normally only appear in 
the first cycle of the ai r-f ! ow- spl i t Iteration when the flow 
through the snout is close to zero. It is due to neglecting 
the enthalpy of the fuel in the flame-tube energy equation. 

When the program encounters this situation, TFT2 is given a 
value of 100 and the solution leaves the temperature, iteration 
cycle; this value of TFT2 will, however, be reset in subsequent 
cycles ir the air-flow-split Iteration. 



33 . the COMBUSTER IS BADLY DES I GNED-- NEGATIVE PRESSURE DROP IS 


OCCURRING ACROSS THE HOLES. TO REMEDY: 

1. IF ANNULUS VELOCITIES GREATER THAN 300 FPS> OPEN UP 
THE ANNULUS 

2. INCREASE SIZE OF WALL HOLES 

3. REDUCE DOME HOLE AREA 

4. USE MORE SCOOPS OVER WALL HOLES 

(Subroutine AIRFLO, Air-Flow Subprogram). This message is always 
preceded by Message Number 8,. It indicates that the flow resis- 
tances through the annuli are too large compared with the flow 
resistance through the snout and flame tube such that an air- 
mass flow split cannot be found t<> satisfy the two conditions: 

a. Zero flow at the downstream end of the annuli 

b. Positive flow from the annuli into the flame tube 
at ai 1 hole rows. 

The message itself indicates various methods for overcoming this 
problem. 

34. THE STREAMTUBE ANALYSIS IN THE DIFFUSING PASSAGES BETWEEN SNOUT 
AND OUTER CASING HAS FAILED TO CONVERGE. SOLUTION TERMINATED, THE 
LAST CALCULATED BOUNDARY LAYER PARAMETERS ARE . . . (Subroutine 
TUBSAI, Diffuser Subprogram). This indicates that the iteration 

on boundary- layer displacement thickness has failed to converge 
after 40 cycles. It is expected to occur only in di f fusers which 
are badly separated. 

35. THE DIFFUSER TREATMENT USED IN THIS PROGRAM BECOMES INCREASINGLY 
INACCURATE AT INLET MACH NUMBERS GREATER THAN 0.7 (Subroutines 
TUBCTS and EMPCTS, Diffuser Subprogram). This is merely an 
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indication that the Mach number of the flow at the compressor 
exit is in excess of 0.7. 

36. THE JET FROM HOLE ROW NO. (J) IS SPREADING TOO FAR. INCREASE EFC 
(Subroutine JETMIX, Air-Flow Subprogram). At each calculation 
station, the program compares the area of each jet with the cross- 
sectional area of the flame tube. If the total area of all jets 
from a particular hole row (J) occupies more than one quarter 

of the flame- tube area, the above message is printed out and the 
solution continues. It is suggested that the jet entrainment 
constant, EFC, be increased in such cases. 

37. THE TWO-DIMENSIONAL-RADIATION OPTION CANNOT BE USED IN A COMBUSTOR 
OF RECTANGULAR CROSS SECTION. THE FLAME RADIATION WILL BE 
CALCULATED ONE-DI MENS I ONALLY (Subioutine INPUT2) . The program 

input has been incorrectly specified; the solution proceeds using the 
one- dimensional- radi at ion option. 

38. THE TWO- DIMENSIONAL- RADIATION OPTION CANNOT BE USED WITH 
TABULATED EMISSlVITY DATA. NLUM HAS BEEN SET EQUAL TO 4 
(Subroutine INPUT2). The program input has been incorrectly 
specified, the solution proceeds using the NREC 1964 correlation 
for flame emissivity. 

39. THERE ARE NO JET-ANGLE DATA FOR HOLE TYPE NO. (NHTU) THE INITIAL 

JET-ANGLE ESTIMATE USED IN THE PROGRAM IS NOT AT ALL ACCURATE 

FOR SCOOPS (Subroutine GEOH). This is an informative message 
printed out when noncontin-.'ous scoops have been specified for 

which there are no Jet-crgle data. 
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40. THIS SECTION HAS AN AREA RATIO LESS THAN ONE AND ACTS AS A 
NOZZLE AND NOT AS A DIFFUSER, THE VALUE PRINTED OUT AS THE 
DIFFUSER EFFECTIVENESS IS NOT AN INDICATION OF HOW WELL THE 
SECTION PERFORMS (Subroutine DOUPT, Diffuser Subprogram). This 
indicates that the area at diffuser Station 2 occupied by the 
flow passing through el ther annulus Is greater than the exit 
area of the respective diffuser passage. In this case, the 
empirical-data and streamtube-anal ys I s methods yield essentially 
no lueses due to diffusion, and the values of effectiveness 
obtained are generally not meaningful since the Ideal pressure- 
recovery coefficients are negative. 

41. WHEN SUBROUTINE JETMIX WAS CALLED, K WAS (K) , LESS THAN NSHCP+1 
(Subroutine JETMIX, Air-Flow Subprogram). JETMIX should not be 
called for calculation stations In the primary zone. This 
indicates an error in subroutine EQUFT, from which JETMIX is 
cal led. 

42. X(l) WAS FOUND TO BE LESS THAN X (I- 1 ) (X ( 1 ) ) INCHES ALONG THE 
COMBUSTOR. THIS IS NOT ALLOWED (Subroutine INPUTl). The program 
input quantity XINCH must increase monotonical ly with no two 
values equal. 



259 


APPENDIX VI 
FORTRAN NOMENCLATURE 

This appendix gives the Fortran nomenclature for program CLARE 
and its subroutines. Only the variables contained in COMMON blocks are 
included; the others are mainly dummy variables which appear exclusively 
in a particular subroutine. (The COMMON block BZERO a I so contains only 
dummy variables which are not listed here). 

In many parts of the program, different quantities apply to 
the inner (closest to shaft) and outer walls of the combustor; these 
have generally been given names which are identical except that A is 
used for the inner wall. B for the outer wall. To avoid extensive 
duplication of these names, the following shorthand notation has been 
adopted. When A in a name is underlined, there e v ‘sts a cor respond i ng 
quantity with A replaced by 8 and with "inner 1 in the definition replaced 
oy "outer". For example, 

CA Diameter of inner wall 

indicates that there is, in addition to CA, a quantity: 

CB Diameter of outer wall. 

Variables having names beginning with the letters l,J,K,L,M, 
and N are integers. All other variables are real. 

Units 

In some cases, the units used in the program differ from ’hose 
used for input and output. For example, lengths and diameters are given 
in inches on input and output, whereas feet units are consistently used 
in the program. In such cases, the units given in this list are those 
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used in the program. 


Subscripts 

In this list, the subscripts I, J, and K are used with variables 
that are defined at each geometric input point, each hole row, and each 
calculation point respectively. I runs from 1 to MG, J from 1 to NH, 
and K from 1 to NLA5T. The subscripts L and N are used with other variables, 
as defined below. 


Fortran 

Name 

Symbol 

Description 

Units 

A 


Entfalpy flow rate with jet from 
secondary holes on inner wall 

lbm ft* per sec 3 

AAN1 

A , 

an, 1 

Cros.‘>- sectional area cf annulus 
at previous calculation point 

5q ft 

AAN2 

A , 
an, 2 

Cross-sectional area of annulus 
at current calculation point 

sq ft 

AANA(K) 

A 

an 

Cross-sectional area of inner 
annulus 

$q ft 


ABLOCK 

Fraction of boundary-layer 
blockage fit inlet that is on the 
i nner wal 



ABSW o( w 

Absorptivity of flame- tube wall 

- 


af(l) 

Air mass f low rate in diffuser 
annulus. 1*1 for inner, 2 for 
outer 

lbm 

per sec 

AF2 m 

Air mass flow rate at combust or 
• nlet 

lbm 

per sec 


AF23A(L) 


AFA m 

— an 


an, 1 


Fraction of inlet air that Is 
bled from the annulus for turbine 
cooling or other auxiliary purposes 

Air mass flow rate in inner Ibm per sec 

annulus u^ed in the diffuser 
calculation 

Air mass flow rate in annulus 
at previous calculation point 


AFAN) 


lbm per sec 
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Fortran 


Name 

Symbol 

Description 

Units 


AFAN2 

• 

m 

an, 2 

Air mass flow rate in annulus at 
current calculation point 

ibm per 

sec 

AFANA(K) 

• 

m 

an 

Air mass flow rate in inner 
annul us 

Ibm per 

sec 

AFCL 


Lower bound on ratio of flow 
through inner annulus to flow 
through both annuli 

• 



AFCU 


Upper bound on ratio of flow 
through Inner annulus to flow 
through both annul i 




ArFT(K) 

m ft 

Gas mass flow rate inside flame 
tube 

Ibm 

per 

sec 

AFFT1 

m ft,l 

Gas mass flow rate in flame tube 
at previous calculation point 

Ibm 

per 

sec 

AFFTT1 


Gas mass flow rate in flame tube 
at next calculation point 

Ibm per 

sec 

AFFT2 

m ft,2 

Gas mass flow rate in flame tube 
at current calculation point 

Ibm 

per 

sec 

AFJ(J), 
AFJ1 (J) 


Initial mass flow in jets in Jth 
hole row 

Ibm 

per 

sec 

AFJA(K) 


Mass flow through previous 
cooling slot in inner wall 

Ibm per 

sec 

AFJZ(J) 


Fraction of ar.rv ' 's air flowing 
through Jth hole row 

- 



AFPRZ 

m 

P 

Total mass flow in primary zone 

ibm 

per 

sec 

AFSL 


Lower bound on flow through snout 

Ibm 

per 

sec 

AFSU 


Upper bound on flow through snout 

Ibm 

per 

sec 

AFSYIA 


Air mass flow rate into inter- 
mediate zone, from secondary 
holes in inner annulus 

Ibm 

per 

sec 

AFSYP 

m 

sy.p 

Mass flow rate through secondary 
holes into primary zane 

Ibm 

per 

sec 

AFSYPA 


Air mass flow rate into primary 

Ibm 

per 

sec 


zone, from secondary holes in 
inner annulus 



Fortran 

Name 

Symbol 

Description 

Units 

AFT (K) 

A ft 

Cross-section area of flame tube 

sq ft 

AFT! 

A ft,l 

Cross-section area of flame tube 
at previous calculation point 

sq ft 

A FT 2 

A ft,2 

Cross-section area of flame tube 
at current calculation point 

Sq ft 

AHP ME 

A hT,dome 

Tota* hole area In the dome 

sq ft 

al(l.n.i) 


Difference in angle between mean 
angle of diffusing passage and 
angle of passage wall. L« 1 for 
inner passage, 2 for outer; H-l 
for inner wall, 2 for outer 

radians 

ALFA(LJ) 


Mean angle of diffuser annulus 
between stations 2 and 4. L-l 
for inner, 2 for outer 

radians 

ALFC(l), 

ALFO(l) 

Angle of inner, outer casing at 
the diffuser snout 

radians 

ALPHA!, ALPA 

Angle of inner casing 

radians 

ALPHA2, ALPB 

Angle of inner wall of snout 

radians 

ALPHA3, ALPC 

Angle of outer wall of snout 

radians 

ALPHA4, ALPD 

Angle of outer casing 

radians 

AR(l,N) 


Flow area at diffuser station i 
for annulus N 

sq ft 

ARF(L.l) 


Area of diffusing passage normal 
to flow direction, allowing for 
boundary- layer displacement thick- 
ness. L=1 for inner passage, 2 
for outer 

sq ft 

ARDTA(L) 

AR 

Area ratio for point L in table 
of empirical diffuser data 

- 

ARR (L, 1 ) 


Area of diffusing passage normal 
to flow direction. L“l for 
inner passage, 2 for outer 

sq ft 
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Fortran 

Name 

Symbol 

Description 

Units 


ARTAB(L) 

AR 

Area ratio for point l. in 
table of empirical diffuser 
data ?or an alternative set 
of data 



AREA(I) 


Diffuser cross-section area 

sq ft 


AREAI 


Diffuser cross-section area at 
entr y 

sq ft 


AREF 

A r 
ref 

Combustor reference cross- 
section area 

sq ft 


ASTAR (N) 


Critical flow area for stream- 
tube N 

sq ft 


ASW 

A sw 

Swirler area (ignoring blockage 
due to blades) 

sq ft 


B 


Axial momentum of jet from 
secondary hole on inner wall 

ft Ibm per 

2 

sec 

BETA 

P 

Swirler blade stagger angle 

rad i ans 


BETAl 

P 

Profile parameter at inlet to 
inner annulus 

- 


BETA2 

P 

Profile parameter at inlet to 
out°r annulus 

- 


BLOCK ( 1 ) 


Boundary- 1 ayer blockaqe in the 
d i f fuser 

- 


C(J) 

C d 

Discharge coefficient in Jth 
hole row 

- 


C1A(K) 

C , 

Rate of heat transfer by con- 
vection from flame (or cooling 
film) to i nner wal 1 

Btu per sq 

ft sec 

C2A(K) 

C 2 

Heat transfer rate from wall to 
air in inner annulus by 
convect i on 

Btu per sq 

ft sec 

C A ( 1 ) 


Inner casing diameter 

ft 




264 


Fortran 

Name Symbol Description Uni t 

CAl(l) Effective radius of inner diffu- ft 

ser wall between stations 1 and 
2, accounting for boundary-layer 
displacement thickness 

CCA(K) Inner casing circumference ft 

CD Discharge coefficient uncorrec- 

ted for velocity 

CDC(L,N) Discharge coefficient corrected 

for velocity 

CDS(L,N), DUMCD(N) Discharge coef f i ci ent, 1 i brary 

value 


CFTA(K) 


Circumference of flame-tube ft 

inner wall 


CONDFT K 

w 

D 

D1A(K) 

D2A (K) 

D3A(K) 

D4A(K) . 

DANA(K) D 1 

— an 

DELT(L, I) 

DELTA (L , I ) 6 

DENAN1 p . 

K an . 1 


Thermal conductivity of flame- Btu per ft hr 
tube wall material deg F 

Mass flow in jets from 
secondary f le on inner wall 

4 

Coefficient of T in heat- 
w 

balance equation on inner wall 
2 .5 

Coefficient of T in heat- 
balance equation on inner wall 

Coefficient uf T in heat- 
balance equation on inner wall 

Constant in heat-balance equation 
on i nner wal 1 

Hydraulic diameter of inner ft 

annu lus 

Bounda ry- I ayer displacement thick- ft 
ness at. the diffuser wall. L = 1 
for inner passage, 2 for outer; 1= 

1 for inner wall, 2 for outer 

Displacement thickness at point ft 

!. 1=1 for inner wall, 2 for 
outer wal 1 

Air density in annulus at Ibm per ft^ 

previous calculation point 


Ibm per sec 

, -4 

deg R 

-2 .5 
deg R 3 

deg R 1 
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Name 

Symbol 

Description 

Uni ts 

DENAN2 

Pan, 2 

Air density in annulus at 
current calculation point 

lbm 

per 

ft 3 

DENANA(K) 

Pan 

Air density in inner annulus 

lbm 

per 

ft 3 

OENFT(K) 

Pft 

Gas density in flame tube 

lbm 

per 

ft 3 

OENFT? 

Pft.l 

Gas density in flame tube at 
previous calculation point 

lbm 

per 

ft 3 

DENFT2 

Pft, 2 

Gas density in flame tube at 
current calculation point 

lbm 

per 

ft 3 

DFFT(J) 


Accumulated fraction of inlet 
air in flame tube after J 

- 





hole row 




DH"(K) 

°ft 

Hydraulic diameter of flame tube 

ft 



DOMLOS 


Number of velocity heads (based 
on velocity at snout entrance) 
lost between snout entry and 
dome if the diffuser has a snout. 
If the d'ffuser has no snout 
DOMLOS = no. of velocity heads 
lost at calculation point NXD1F 
due to mixing on the dome 




OPH(J) 

i +'' 1> h 

Pressu re- 1 oss factor for Jth 
hole row 

- 



OPHI 

Current value of pressure- loss 

- 




q an 

va 1 ue 




OPHS ( L ,N ) , 

dumph(n) 

1 

q an 

L'brarv value of pressure-loss 
value 

- 



DPHSNT 


Dynamic pressure at snout inlet 

lbf 

per 

sq ft 

DPREF 

q ref 

Reference dynamic pressure 

Ibf 

pe r 

sq f t 

OSWLIN 


Inside diameter of swirler 

i n 



DSWLOU 


Outside diameter of swirler 

i n 



DUMAE(K) 


Accumulated pressure loss in 
inner annulus due to expansion 

lbf 

per 

sq ft 
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Symbol 

Oescr ipt i on 

Uni ts 

DXMU(j) 


Hole radius (for noncircular 
boles, half the axial length) 

ft 

DYD 


Square of mean velocity into 
inner annulus from first part 
of diffuser (Station 2) 

2 2 
ft per sec 

D9(N) 


Fractional distance across velo- 
city profile at diffuser Station 
2, allowing for blockage 


E 


Momentum of jets from secondary 
holes on inner wal 1 

ft Ibm per sec 

tIDTA 

E 1 

(1 - boundary- layer blockage) at 
inlet for table of empirical 
diffuser data 


E1DTAB 

E 1 

(1 - boundary- layer blockage) ut 
inlet for an alternative table 
of empirical diffuser data 


EE1(L) 


Parameter used in calculating 
boundary- laye r blockage at 
entrance to second stage of 
diffusion (Station 2) 


EFC(») 


Constant used to denote rate of 
mixing of penetration jets 

- 

EFC (2) 


Constant used to denote rate of 
mixing of wall jets 

- 

fcFCL(N) 

“i. “ U ft 
u j.o" U ft 

Local velocity ratio in resid- 
ual-jet velocity profile 

** 

EFDT(L) 

l 

Oiffuser effectiveness. L = 1 for 
diffuser inlet to station NXDIF 
L * 2,3 for two annular passages 


EFOTA(L) 

l 

Effectiveness for point L in 
table of empirical diffuser 

data 


EFDTAB(L) 

l 

Effectiveness for point L in 
an alternative table of empirical 
diffuser data 




?67 


ortran 


Name 

Symbol 

Description 

Units 

EK 1 6 

M jo 

Total axial jet momentum flow 
rate of entering jets. 

2 

ft lbm per sec 

EK17 

A jo 

Total cross-sectional area of 
entering jets 

sq ft 

EXJ9 

m. 

JO 

Total air mass- flow rate of 
entering jets 

lbm per sec 

EK20 


Total jet enthalpy flow rate of 
entering jets. 

2 3 

lbm ft per sec 

EMC 

e c 

Emissivity of casing 

- 

EMFT(K) 

e ft 

Flame emissivity 

- 

EMW 

£ w 

Emissivity of flame tube wall 

- 

ENTHAL 


Ratio of mean specific heat at 
TFT2 to that at TFT1 

- 

F ( i ) 


Ratio of inner or outer annulus 
area to total combustor area 
at diffuser Station 2‘ 

- 

FAR 


Fuel-air ratio 

- 

FAR FT (K) 


Fuel-air ratio in flame tube 

- 

FAR FT 1 


Fuel-air ratio in flame tube el 
previous calculation point 

- 

FARFT2 


Fuel-air ratio in flame tube at 
current calculation point 

- 

FARL 


Fuel air ratio left at the 
current calculation point 

- 

FFB (J) 


Cumulative fraction of fuel 
burned up to Jfh hole row 

- 

FFIZ(K) 


Mass of fuel available for 
burning in flame tube between 
previous calculation point and 
current one 

1 brn 

FHCR 


Fuel hydrogen-carbon ratio 

- 

FIA 


Constant used in deriving new 
mass flow split 

- 
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FiD 


Maximum value of mjf in air mass 
flow iteration cycle 

Ibm per sec 

FIENTH 


Maximum allowable change in 
temperature in solution of 
flame-tube equations 

deg F 


FIFTPR 


Maximum allowable error in 
enthalpy equation to determine 
primary zone temperature 

* 


F 1 LMFA (K) 

X 

Film-cooling effectiveness 

- 


fint(k) 


Flame intensity at calculation 
point K 

Btu per sq 

ft sec 

FI PHI 


Tolerence on velocity in solving 
flame-tube equations, expressed 
as a fraction 

** 


FIT 


Velocity percentage accuracy 
required in solution of annulus 
equat i ons 



FITAU 


Constant used in deriving new 
mass-flow split 

- 


FLAREA(l) 


Flow area in diffuser 

sq ft 


FLCV 


Fuel lower calorific value 

Btu per Ibm 

FM0C02 (K) 


Mole fraction of carbon dioxide 
in burning gas 

- 


FM0H20 (K) 


Mole fraction of water vapor 
in burning gas 

- 


FRICFA(K) 

f 

Friction factor (Fanning) in 
annu lus 

- 


FTA ( ! ) 


Diamete r of inner flame- tube wall 

ft 


GASC 

R 

Gas constant for ai r 

ft Ibf per 

Ibm deg R 

GJCULE 

J 

Mechanical equivalent of heat 

ft Ibf per 

Bt 

GRAVC 


Gravitational constant 

ft Ibm per 

Ibf sec^ 

GX 1 A 

l 

Jet angle for secondary-hole 
jets on inner annulus 

rad i ans 
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Symbol 

Description 

Units 

GXI 

l 

initial jet angle 

' radians 

GXIA(j) 

l 

Jet angle in Jth hole row 

radians 

GXIS(L,N} 

l 

Initial jet angle, library value 

radians 

HAB (J) 


Input value of hole area 

sq ft 

HAU(j) 

A h 

Cross sectional area of each 
hole in Jth row 

sq ft 

HAV/( J) 


Effective total area of 
Jth hole row 


HRRATE 


Effective lower calorific value 
of fuel times the fuel air 
ratio 

Btu per Ibm 

IBL 


Index. 1 When diffuser calcu- 
lation has converged 
0 Otherwise 


IDIF 


Index. 0 For empirical data 

from generalized tab- 
ulation 

1 For empirical data from 
table for particular 
geometry 


IH 


Number of hole type on short 
1 i St 

- 

IHJ(J) 


Hole type number on short list 
for the Jth hole row 

- 

INPUT 


Index. 0 If input flow conditions 
varied between cases 
1 If program routing 
varied between cases 


1 PRINT 


Index. 1 If intermediate results 
are to be printed 
0 Otherwise 


ITAPE 


Number of computer input device 

- 

JK.SN(J) 


Number of calculation point 
corresponding to Jth hole row 

- 
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JTAPC Number of computer output device 

K index denoting calculation point 

XI Index. 0 For inner annulus 

1 For outer annulus 

*"♦ Index. 0 For secondary-hole flow 

split not spec! f i ed 

1 For secondary-hole flow 
split speci f ied 

K6 Index. 0 For no swirler 

1 For swirler specified 

2 For swirle unspecified 

K30 ; K4O, 

K50 a K6Q Integers used in subroutine 

DISJtT to fix pressure reversal 
or negative eir mass flow in the 
annuli for the whole combustor 

KANHET Number of times the heat transfer - 

subprogram nas been entered 

KJSN(K.L) Hole row number ot Lth hole row 

at calculation point no.K 

KTa^E Number of computer input device 

used for library data 

LANHET Index. C If heat transfer to 

annulus air is neglected 

1 If heat transfer to 
annulus air is to be con- 
sidered 

2 If no heat transfer cal- 
culat ion is to be done 

ICAN Loop counter in A1RFL0; check on 

number of times EQUAN is called 

LCAM Loop counter limit in AIRFLO; 

check on numoer of times EQUmN 

is called 
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Units 

LCANI 


Loop counter in AIRFLO; 
iteration on mass-flow spiit 

- 

LCANIL 


Loop counter limit in AIRFLO; 
iteration on mass-flow split 

- 

LCFT 


Loop counter in AIRFLO; check on 
number of times EQUFT 15 called 

- 

LCFTE 


Loop counter in EQUFT; iteration 
on flame-tube temperature 

- 

LCFTEL 


Loop counter limit in EQUFT; 
iteration on flame-tube temp- 
erature 


LCFTL 


Loop counter limit in AIRFLO; 
check on nonler of times EQUFT 
is called 


LCHF 


Loop counter in E~. 
iteration on annul u' velocity 

- 

LCMFL 


Loop counter limit in fc'?U 4 N. 
iteration on annulus vriouity 

- 

LCPRT 


Loop counter in P’TE^P; ittrat ; cr 
cn pr imary-zc^e temperature 

- 

LCPRTL 


Loop counter limit in PRTfH.P, 
iteration on primary-zone 
temperature 


LCPTA 


Loop counter in PRTfMP; iteration 
on secondary-hole-mass- f 1 ow snlit 

- 

LCPTAL 


Loop counter limit in PRTEMP; 
iteration on secondary-hole-mass 
flow- split 


M 


Number of current case 

- 

N£B(j) 


Index indicating hole position; 

1 . For i nne r wall 

2 . For outer wall 

- 
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Name Symbol 

NABX(K) 


NBLADE 

NCASE 


NCDF 


NCDIFB 


NCODEA(K) 


NCOOL 


NO IFF 


NEF 


Description 

Index. 1 For hole on inner wall 

2 For hole on outer wall 

3 For holes on both walls 

4 For no holes on either 
wall 

Number of swirler blades 

Number of cases to be considered 
NCASE * 0 if only a check on the 
input data is required, and none 
of the major subroutines are to 
be entered 

Index indicating form of em- 
pirical diffuser data and degree 
of interpolation used. See page 
30 for details (NCDF = NCDIFA) 

Index indicating form of em- 
pirical diffuser data and degree 
of interpolation used for an 
alternative set of data 

Index. 1 If there is a cooling 
slot on inner wall at 
this calculating point 
0 Otherwise 

Index. 1 For film cooling 
2 For transpiration 
cool ing 

Index indicating route through 
diffuser subprogram. Tens 
position indicates calculation 
method in first part of diffuser 
(Stations 1-2), units position 
indicates method for second part 
(Stations 2-4). Can take values 
11. 12, 13, 22, 23. See page 40 
for detai 1 s 

Index indicating entrainment 
corre lat ion-to be used. 

1 For mass-loss method 

2 For equivalent -entrainment 
method 

3 For prof i le -subst 1 tut ion method 

4 For instantaneous mixing 


Units 
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NDIS(J) 


NEFT 

NG 

NGO 

NH 

NHH(j) 

NHT1 


NHT2 


NHTU 

NLAST 

NLUM 


Index indicating state of residual 
jets from Jth hole ran, 

0 If jets have not disappeared 

1 If jets have disappeared 

Number of emissivity values in 
table of empirical flame- 
emissivity data 

Number of geometric input points 

Index. 1 For streamtube method 
2 For emp: r ical -data 
method 

Number of hole rows 

Number of holes in hole row J 

Index indicating route through 
basic heat-transfer cal- 
culation. 

1 For uncooled wall, 1-dimen- 
sional radiation 

2 For cooled wall, 1-dimensional 
radi at ion 

3 For uncooled wall, 2-dimen- 
sional radiation 

k For cooled wall, 2-dimensional 
radi at ion 

Index indicating the corrections 
applied to the basic heat-transfer 
calculation 

2 For longitudinal conduction 

3 For radiation interchange 
between walls 

U For longitudinal conduction 
and radiation interchange 
1 No correct ions useu 

Hole type used in Jth hole row 

Number of calculation points 

Index indicating correlation to 
be used for flame emissivity. 

1 For Reeves correlation for 
distillate fuels 

2 For Reeves correlation for 
residual fuels 

3 For Lefebvre correlation 
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NPFT 


NRECT 


NSCO0P(L) 


NSH 

NSHCP 

NSNQUT 

NSP(L) 

NTUBE 

NUMAX1 

NUMAX2 

NUHSW 


Description Units 

4 For NREC 1964 correlation 

5 For NREC 1966 correlation 

6 For emissivity from table of 
experimental data 

Number of values of pressure 
in table of empirical flame- 
emissivity data 

Index. I For annular combustor 
2 For rectangular com- 
busto 1 - 

Index. 1 In units position for 
non-cont i nuous scoop 
2 In units position for 
continuous film-cooling 
s lot 

0 in units position other- 
wi se 

1 in tens position if jet- 
angle data not available 

Hole-row number corresponding to 
secondary holes 

Number of calculation point 
corresponding to secondary holes 

Index. 1 If there is a snout 
0 Otherwise 

Number of points at which dis- 
charge-coefficient data given for 
Lth hole type on shcrt list 

Number of streamtubes in diffuser 
theoretical calculation 

Permissible nqrnber of iterations 
in solving heat -balance equation 
for noniterative heat-transfer 
calculation 

Permissib’e number of iterations 
in solving heat balance equation 
for iterative heat transfer 

Number of swirlei. 


N'JPR 


Number of points across velocity 
profile in diffuser inlet plane 
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Description 

NWALL1 

Index indicating set of empirical 
data to be used in first part of 
diffuser (Stations 1-2) 

NWALL2 

Index indicating set of empirical 
data to be used in second part of 
diffuser (Stations 2-4) 

NWAY 

Index. 1 For streamtube method 

2 For empirical-data 
method 

3 For mixing-equation 
method 

NWH 

Number of first hole row on flame- 
tube wall, as distinct from dome 

NXDIF 

Number of geometr : c-input point 
corresponding to diffuser Station 
2 (just before snout) 

NX01FI 

Number of geometric- input point 
corresponding to diffuser Station 
3 in inner annulus 

NXDIF2 

Number of geometr ic- input point 
corresponding to diffuser Station 
3 in outer annulus 

NXDIFA.NXD(l) 

Number of geometric- input point 
corresponding to diffuser Station 
4 in inner annulus 

NXOIFC 

Number of area-ratio points in 
table of empirical diffuser data 
for an alternative set of data 

NYOF 

Number of effectiveness points In 
table of empirical diffuser data 

NYDIFB 

Number of effectiveness points 
in table of empirical diffuser 
data for an alternative set of 
data 

NIOF 

Number of nondimensional- length 
points in table of empirical 
diffuser data 


Units 
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NZDIFB 


Number of nond i mens i ona 1 - length 
points in table of empirical 
diffuser data for an alternative 
set of data 





PAN 1A 


Static pressure in inner annulus 
at diffuser exit (Station 4) 

Ibf 

per 

sq 

ft 

PERCO 

l/a 

Permeab i l i ty coefficient of 
porous wal 1 

sq l 

Ft 



PI 

Tt 

3.14159 

- 




P 1 4 

Tl/4 

3.14159/4 

- 




PLOSS(l) 


Tota l -pressure loss in the dif- 
fuser due to expansion or contra- 
tion at the snout 

Ibf 

per 

sq 

ft 

PRAAN(K) 

Pr 

Prandtl number in inner annulus 

- 




PREAN1 

^an, 1 

Static pressure at previous 
calculation point in an ulus 

Ibf 

per 

sq 

ft 

PR E AN 2 

P an , 2 

Static pressure at current 
calculation point in annulus 

Ibf 

per 

sq 

ft 

PREANA(K) 

P an 

Static pressure in inner 
annulus 

Ibf 

per 

sq 

ft 

PRFn-| 

- P dome 

Static pressure on dome 

Ibf 

per 

sq 

ft 

PREFT(K) 

p ft 

Static pressure in flame tube 

Ibf 

per 

sq 

ft 

PREFT1 

P ft,l 

Static pressure at previous 
calculation point in the flame 
tube 

Ibf 

per 

sq 

ft 

PREFT2 

P f t , 2 

Static pressure at current 
calculation point in the flame 
tube 

Ibf 

per 

sq 

ft 

PRES ( 1 ) 


Diffuser static pressure at 
point 1 

Ibf 

pe r 

sq 

ft 

PRESIN 

P 2 

Static pressure at inlet 

Ibf 

per 

sq 

ft 

PRFT(K) 

Pr 

Prandtl number in flame tube 

- 




QTRA(K) 


Rate of enthalpy added to flame- 

B tu 

per 

ft 

2 

sec 


tube gas due to transpiration 
'-ooting through inner annulus wall 
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R 


Distance across annulus, normal to 
mean flow direction, at diffuser 
Station 2' 

Btu 

per 

sq ft 

see 

RIA(K) 

R . 

Rate of heat transfer by 
radiation from flame to inner 
wal 1 

Btu 

per 

sq ft 

sec 

R2A(K) 

" 2 

Rate of heat transfer by 
radiation from flame tube wall 
to inner casing 

Btu 

per 

sq ft 

sec 

R3A(K) 

*3 

Net rate of heat received by 
inner wall due to radiation 
interchange with opposite wall 

Btu 

per 

sq ft 

sec 

RAO(L) 


Mid-point coordinate of stream- 
tube 

- 




RC(J) 


Ratio of corrected to actual 
discharge coefficient in Jth 
hole row 

* 




RDATA(L) 


Nondimens ional distance across 
diffuser inlet plane at point L 

- 




REAAN(K) 

Re 

Reynolds number in the Inner 
annulus 

- 




RFFT(K) 

Re 

Reynolds number in the flame 

< i 

- 




RHOREF 

^2 

Uet 't diffuser inlet 

1 bm 

per 

ft 3 


R0(L,N) 


in streamtube adjacent to 
< station N in diffuser. 

L- or inner wall, 2 for outer 

1 bm 

per 

ft 3 


SA(I) 


inner snout diameter 

ft 




SAFTRA(K) 


Air mass flow rate transpiring 

lbm 

per 

sq ft 

sec 


through the inner annulus walls 
between current calculation 
point and the previous one 


SHAFST Fraction of air flowing through 

secondary holes that recirculates 
upstream 

$HAPEH(L,l) H Shape factor on wall. 1=1 for 

inner wall, 2 for outer wall 


SHP(L) Shape factor of boundary layer 

on wall at diffuser inlet. 

L=1 for inner wall, 2 for 
outer 
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STAGP(N) 


Stagnation pressure of Nth 
streamtube in diffuser 

Ibf per ft* 

STAGT 

T 2 

Total temperature of air at 
compressor outlet 

deg R 

STEP 


Step size used in jet mixing 
calculations 

ft 

STPREF 

P 2 

Mass-averaged total pressure 
at compressor outlet 

Ibf par sq ft 

TABEFT(L) 


••r experimental flame 
emt ss i v > ties 

- 

TABPFT(L) 

p ft 

Gas pressure in Lcb’.e of 
experimental flame emissivities 

Ibf per sq ft 

TABTFT(L) 

T fc 

Gas temperature in table of 
experimental flame emissivities 

deg R 

TANI 

T , 
an, 1 

Static lemperature of annulus air 
at previous calculation point 

deg R 

TANIA 


Static temperature in inner 
annulus at diffuser exit 
(Station k) 

deg R 

TAN 2 

T an,2 

Static temperature of annulus 
air at current calculation 
poi nt 

deg R 

TAN ANA (K) 

r an 

Static temperature of air in 
inner annulus 

deg R 

TCASA(K) 

T c 

Temperature of inner casing 

deg R 

TCATA(K) 

T c 

Temperature of inner casing 

deg F 

TCFA(K) 


Temperature of air entering 
previous cooling slot on inner 
wa 1 1 

deg R 

TFT (K) 

T ft 

Total temperature of gas in 
flame tube 

deg R 

TFT! 

T ft,l 

Total temperature of gas in 
flame tube at previous 
calculation point 

deg R 

TFT2 

T f t,2 

Total temperature of gas in 

flame tube at current 
calculation point 

deg R 
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Mil 

THA 


Theoretical inlet area for 
Inner annulus 

sq ft 


THET(L) 


Momentum thickness on diffuser 
wall t-1 for Inner wall, 2 for 
outer 

ft 


THETT(L.l) 

Momentum thickness of the boundary 
layer in the plane of the snout. 

1-1 for inner passage, 2 for outer; 
1-1 for inner well, 2 for outer. 

ft 


TH1KFT 

*w 

Flame- tube wal 1 thickness 

ft 


THS 


Theoretical inlet area for 
snout 

sq ft 


TNUAAN(K) Nu 

Nusselt number in inner annulus 

- 


TNUFT(K) 

Nu 

Nusselt number in flame tube 

- 


TOLTWI 


Accuracy to which solution of 
noniterative heat balance 
required 

deg F 


T0LTW2 


Accuracy to which solution of 
iterative heat balance required 

deg F 


TWA(K) 

T w 

Flame-tube wall temperature 

deg R 


TWADA(K) 

T ad 

Adiabatic-wall temperature on 
inner wall 

deg R 


TZ 


Zero Fahrenheit expressed In 
deg R 

deg R 


UAN1 

U an, 1 

Velocity of air in annulus at 
previous calculation point 

ft per 

sec 

UAN2 

U an,2 

Velocity of air in annulus at 
current calculation point 

ft per 

sec 

UANA(K) 

U an 

Velocity of air In inner annulus 

ft per 

sec 

UFT(K) 

U ft 

Velocity of gas in tho flame 
tube 

ft per 

sec 

UFT1 

Vi 

Velocity of gas at previous 
calculation point 

ft per 

sec 
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Symbol 


UFT2 U ft,2 

UFTA(K) 

UH Uj 

UJ(L) 

UJCL(j) u. 

J 9 

UJETA(N) Li. 

J • 

UJY(N) 

UJ1A(K) 

VEL(L,N) 

VELJ(L) 

VPOATA(L) 

WCD(J) C d 
WFFIZ(K) 

Wl (1,1), wi ( 2 , 1 ) 
WIOTHI 

WILO.I), WIL(2, l) 


Description 

Velocity of gas at current 
calculation point 

Velocity of gas In flame tube 
at previous cooling slot on 
inner wal 1 

Initial jet velocity 

Velocity of Lth streamtube 

Centerline velocity of residual 
jet from Jth hole row 

Local velocity at station N in 
residual-jet transverse velocity 
prof i le 

Local velocity at station 2 of 
diffuser 

Velocity of air entering previous 
cooling slot on inner wall 

Velocity in streamtube adjacent to 
diffuser wall at station N. L«1 
for inner wall, 2 for outer 

Velocity in streamtube adjacent to 
diffuser wall at inlet, L»1 for 
inner wall, 2 for outer 

Nondimensiona! velocity at 
point L across diffuser inlet 
prof i le 

Discharge coefficients of holes 
in Jth row 

Rate of fuel burning as a 
function of axial length 

Diameter of innor casing, outer 
snout 

Width of rectangular combustor 

Diameter of inner casing, outer 
snout, allowing for boundary- layer 
displacement thickness 


Units 

ft per sec 
ft per sec 

ft per sec 
ft per sec 
ft per sec 

ft per sec 

ft per sec 
ft per sec 
ft per sec 

ft per sec 


Ibm per sec per ft 

ft 

ft 

ft 
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Name Symbol Description Units 

i 

W0(l,l), WO (2,0 Diameter of inner snout, outer ft 

cas 1 ng 

W0L(l,l), W0L(2,l) . Diameter of Inner snout, outer ft 

casing allowing for boundary- 1 ayer 
displacement thickness 


WUJ(J) 

u. 

J 

Initial jet velocity for Jth hole 
row 

ft per sec 

X(I) 


Axial location of geometric 
input point 

ft 

XIFCA(K) 


Axial distance from previous 
cooling slot on inner wall 

ft 

XAF23A(L) 


Axial location at which cooling 
is bled from annulus 

ft 

XCP(K) 


Axial location of Kth calculation 
poi nt 

ft 

XFILMZ 

X 

o 

Constant in film-cooling 
correlation 

- 

XFSA 


Fraction of secondary air flowing 
downstream from secondary holes 
in the inries* annulus 


XH(J) 


Axial location of centerline 
of Jth hole row 

ft 

XHU(J) 


Axial location of upstream edge 
of Jth hole row 

ft 

XI NT 


Interval downstream of cooling 
slots at which calculation 
points required 

ft 

XLNDTA(L) 


Nondimensional length for point 
L in table of empirical diffuser 
data 

* 

xlndtb(l) 


Nondimensional length of point 
L in table of empirical diffuser 
data for an alternate set of 
data 


XMACH 

M 2 

Mach number at diffuser inlet 

- 

XMTB(j) 


Mass flow in streamtube J 

Ibm per sec 
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Ha<ne 

Symbol 

Description 

Units 

XMVA 


Mean velocity into inner annulus 
from first part of diffuser 
(Station 2) 

ft per sec 

XMVS 


Mean velocity into snout from 
first part of diffuser (Station 
2) 

ft per sec 

YCFA(K) 

Y cf 

Height of previous cooling slot 
on inner wall 

ft 

Y(H) 


Fractional distance across 
velocity profile at diffuser 
station 2, allowing for blockage 

«e 

YY 


Fractional distance across annulus 
at diffuser station 2 

- 

ZAJH(K) 


Summation of axial jet momsntun 
for hole rows at current cal- 
culation point 

2 

lbm ft per sec 

znh(k) 

2 «j 

Summation of jet air mass flow 
for hole rows at current 
calculation point 

lbm per sec 

zmha(l) 

• 

a 

*y 

Hass flow through secondary 
holes. L«l for inner annul us , 
2 for outer annulus 

lbm per sec 

ZHJUJ(K) 


Summation of jet mo»>*ntum for 
hole rows at current calculation 
point 

lbm ft per sec 

ZHJET(K) 


Summation of flow rates of 
enthalpy with jets for hole rows 
at current calculation point 

2 3 

ft lbm per sec 

ZSTOC 


Stoichiometric fuel air ratio 

- 

7ZCP 

c p 

Specific heat 

Btu per lbm deg F 

ZZ6AMA 

X 

Ratio of specific heat 


ZZR 

R 

Gas constant 

ft Ibf per J bm deg P. 
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100 






0 AT 4000 1 

10.0625 

0.01227 

10 

91. 

0. 

0. 

DADATA0002 

2. 

.33 


4. 

.477 


0ATA0003 

8. 

• SSS 


16. 

.597 


DATA0004 

32. 

.623 


66. 

.642 


DATA000S 

128. 

•65 


256. 

• 656 


0ATA0006 

20.125 

0.04909 

10 

91. 

0. 

0. 

DA0ATA00D7 

2. 

.347 


4. 

.49 


DATA0008 

u. 

. 556 


16. 

.587 


DAT A0C09 

32 . 

.597 


64. 

.6 


DATA0010 

128. 

.6 


256. 

.6 


0ATA0011 

30.164 

0.0845 

0 

71. 

C. 

0. 

DAQATA0012 

2. 

.475 

62. 

4. 

.525 

66. 

DATA0013 

8. 

.565 

69. 

16. 

• 602 

72. 

DATA0014 

32. 

• 635 

75. 

64. ‘ 

.655 

. 77. 

C&TA0015 

40.236 

C. 175 

0 

71. 

0. 

0. 

OA0ATA0016 

2. 

.45 

52. 

4. 

.55 

63. 

DATA0017 

8. 

.61 

69. 

16. 

• 645 

73. 

CATA0018 

32. 

.66 

77. 

- 64. 

.67 

80. 

CATA0019 

5.3/5 

.4418 

0 

51. ' 

0. 

0. 

DA0ATAO020 

2. 

.36 

50. 

4. 

.48 

62. 

DATA 0021 

3. 

.545 

67. 

16. 

.6 

70. 

0ATA0C22 

60. 3/5 

0.4418 

10 

91. 

0. 

0. 

0ADATAG023 

2. 

.343 

- 

4. 

.485 


DATA0024 

8. 

. . 542 


16. 

• 564 


OATA0025 

32. 

.573 


64. 

.58 - 


DATA0026 

128. 

.583 

; 

256. 

• 588 


0ATA0027 

70.375 

0.4418 

10 

71. 

0. 


DADATA0028 

2. 

.365 


4. 

.495 


OATA0029 

8. 

.55 


16. 

.571 


DATA0030 

32. 

.584 


64. 

.589 


GATA0031 

8.375 

.4418 

10 

61. 

0. 


DA0ATA0032 

2. 

.38 


4. 

.505 


DAYA0033 

8. 

.552 


16. 

.5 75 


0ATA0C34 

32. 

.59 





CATA0035 

9.3795 

.4525 

0 

51. 

C. 

0. 

DATA0036 

2. 

.36 

55 o 

4. 

.5 

56. 

DATA0037 

8. 

.555 

67. 

16. 

.56 

70. 

DATA0038 

10.4035 

.5115 

0 

71. 

0. 

0. 

0ADATA0039 

2. 

.4 

57. 

4. 

.54 

67. 

DATA0040 

8. 

.6 

73. 

16. 

.625 

77. 

DATA004 1 

32. 

.64 

80. 

64. 

.64 

81. 

DAT A0042 

11 .4925 

.762 

0 

51. 

0. 

0. 

OACAT A0043 

2. 

.36 

58. 

4. 

• 5C5 

67. 

0ATA0044 

0. 

.575 

74. 

16. 

.61 

79. 

DAY A0C45 

120.73 

1.767 

10 

71. 

C, 


DADATA0046 

2. 

.381 


6. 

.4se 


0ATA0047 

8. 

.55 


16. 

.57 


DATA0048 

32. 

.578 


64. 

.582 


DAT A0C49 

130.795 

1.986 

0 

41. 

0. 

0. 

DADATA0050 

?. 

.395 

63. 

4 . 

.51 

O 

•i 

DATA0051 

a. 

.575 

76. 




D ATA0052 

14.9045 

2.57 

0 

51. 

C. 

0. 

DADAT A0C53 

2. 

.33 

5C. 

4. 

.52 

60. 

DATA0054 

8 . 

.58 

70. 

16. 

.5e 

8C. 

0ATA0055 

15. 25 

-25 

L0 

71. 

0. 


DA0ATA0056 

2. 

.358 


4. 

.495 


DATA0057 

8. 

. 553 


16. 

.57e 


0ATA0058 

32. 

.588 


64. 

.585 


DATA0059 

lt> .35 h 

.5013 

0 

61. 

0. 

0. 

0ATA0060 





1 
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2. 

.345 

50. 

4. 

• 513 

63. 

DATA 0061 

8. 

.588 

72. 

16. 

.617 

78. 

OATA0062 

32. 

•625. 

80. 




DATA0063 

17.206 

.0849 

0 

71. 

0. 

0. 

0ATA0064 

2. 

.48 

53. 

4. 

.535 

63. 

OATA006S 

8. 

• 585 

69. 

16. 

• 62 

74. 

DATA0066 

32. 

.645 

76. 

64. 

•655 

78. 

OATA0067 

18.218 

• 0648 

0 

71. 

O.c 

0. 

DATA0068 

2. 

.4 

52. 

4. 

• 51 

61. 

0ATA0069 

8. 

.585 

68. 

16. 

• 625 

72. 

OATA0070 

32. 

.645 

75. 

64. 

•65 

77. 

CATA0071 

19.2955 

.1743 

0 

71. 

0. 

0. 

0ATAQG72 

2. 

• 316 

48. 

4. 

• 48 

58. 

r 3ATA0G73 

8. 

.565 

66. 

16. 

• 61 

71. 

0ATA0Q74 

32. 

.62 

75. 

64. 

.627 

78. 

0ATA0075 

20. 312 

.1738 

0 

71. 

0. 

0. 

0ATA0C76 

• 2. 

.325 

51. 

4. 

• 51 

6C. 

DATA0077 

8. 

.585 

66. 

16. 

• 615 

71. 

0ATA0078 

32. 

• 63 

75. 

64. 

•64 

73. 

DATA0Q79 

21.5 

.5743 

0 

71. 

G. 

0. 

DATAG080 

2. 

.377 

48. 

% • 

.5 2 

62. 

DATAOOBl 

8. 

.587 

71. 

16. 

617. 

77. 

0ATA0082 

32. 

.626 

81. 

64. 

.63 

84. 

0ATA0083 

22.5 

.5 

10 

71. 

C. 


0ADATAGQ84 

2. 

.38 


4. 

.5C8 


DATA0085 

8. 

.561 


16. 

.584 


0ATAOO86 

32. 

.594 

- 

64. 

.6 


DATA0087 

23.531 

.5035 

0 

71. 

C. 

0. 

0A1 AC083 

2. 

.385 

49. 

4. 

• 5C3 

62. 

DAT A0089 

8. 

.552 

72. 

16. 

.575 

78. 

DATAC090 

32. 

.58 

81. 

64. 

.585 

83. 

OATA0091 

24.6 2 

• 7688 

C 

51. 

C. 

0. 

0A7A0C92 

2. 

.39 

47. 

4. 

.504 

64. 

DATA0Q93 

a. 

• 564 

73. 

16. 

.59 

79. 

DATA0094 

25.656 

.7685 

0 

61. 

0. 

0. 

DATA0095 

2. 

.412 

51. 

4. 

.537 

66. 

DATA0O96 

8. 

.575 

74. 

16. 

.595 

79. 

DATA0097 

32. 

.595 

81. 




DATA0098 

261. 

2.688 

0 

51. 

0. 

4 ). 

CATA0099 

2. 

.44 

56. 

4. 

.538 

70. 

DA7A0100 

8. 

.567 

76. 

16. 

.575 

77. 

DATA0101 

271. 

2. 

10 

71. 

0. 


DADATA0102 

2. 

. jea 


4. 

*51! 


DATA0103 

8. 

.56 3 


16. 

.587 


0ATA0104 

32. 

.596 


64. 

.6 


DATA0105 

zai .06^ 

2.0133 

0 

41. 

0. 

C. 

DATAOl C6 

2. 

.44 

57. 

4. 

.55 

70. 

CATA0107 

a. 

.59 

76. 




DAT 601 08 

29. 71 

.5041 

0 

61. 

0. 

0. 

DATA0109 

2. 

.413 

42. 

4. 

.525 

fcC. 

DATAOllO 

8. 

.585 

71. 

16. 

.611 

78. 

DATAOl 11 

32. 

.62 

83. 




DATA01 12 

30. 7486 

.53128 

0 

61. 

C. 

C. 

DATAOl 13 

2. 

.45 

49. 

4. 

.565 

64. 

DAT AOl 1 4 

H . 

.62 

73. 

16. 

.645 

8C. 

CAT AO 115 

32. 

.65 

84. 




DATA0116 

312. 

2. 

10 

71. 

0. 


DADATAOliT 

2. 

.425 


4. 

.537 


DATAOl 18 

3. 

.576 


16. 

.592 


CATA0119 

*2. 

.597 


64. 

.6 


DATA0120 
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•*•••••••••♦ 

321. 

• 5041 

0 

61. 

0. 

0. 

0ATA0121 

2. 

•458 

46. 

4. 

.565 

66. 

0ATA0122 

8. 

.605 

74. 

14. 

.62 

79. 

0ATA0123 

32. 

• 63 

82. 




DAT AO 124 

331.05 

.9534 

0 

6 1. 

0. 

0. 

DATA0125 

2. 

.435 

55. 

4. 

.56 

63. 

RATA0126 

8. 

• 605 

69. 

16. 

.625 

74. 

0ATA0127 

32. 

.635 

78. 



"* 

DATA0128 

352. 

1. 

10 

71. 

0.^ 


0ADATA0129 

2. 

.417 


4. 

•532 


0A7A0130 

8. 

.584 


16. 

• 6 


DATA0131 

32. 

.611 


64. 

.613 


0ATA0132 

35.2375 

*1772 

10 

61. 

0. 


DAO A TA0133 

2. 

.43 


4. 

.57 


DAT AO 134 1 

a. 

.65 


16. 

• 683 


0ATA0135 

32. 

.7 


: ' 7 



0ATA0136 

36.3125 

• 3068 

10 

61. 

0. 


DADATA0137 

2. 

.4? 


4. 

.58 


DATA0138 

- a. 

.64 


16. 

• 67 

■ - ' - , 

DATA0139 

32. 

.705 





DATA0140 

37.3% 

.4927 

10 

61. 

0. 


OADATAOl 41 

2. 

.38 


4. 

.506 


0ATA6142 

8. 

.58 


16. 

.633 c 


DATA0143 

32. 

.65 





DATA0144 

38.643 

1.299 

0 

51. 

0. 

90. 

OADATAOl 45 

2. 

.4 

65. 

4. 

.585 

68. 

QATA0146 

8. 

.687 

75. 

16. 

.735 

?5* 

DATA0147 

39 .1 

2.602 

; 0 

51. 

C. 

86. 

0A0ATA0148 

2. 

.425 

65. 

4. 

.59 

70. 

DATA0149 

8. 

.665 

77. 

16. 

.75 

84. 

CATA0150 

40.914 

2.624 

0 

51. 

0. 

87. 

DADATA0151 

2. 

.44 

63. 

4. 

.62 

68. 

DATA0152 

8. 

.73 

73. 

16. 

.8 

80. 

DATA0153 

41.916 

2.636 

0 

51. 

0. 

84. 

OADATAOl 54 

2. 

.35 

65. 

4. 

.51 

?1. 

0ATA0155 

8. 

.594 

74. 

16. 

• 63 

76. 

OAT Ad 56 

421.1405 

2.57 

0 

51. 

C. 

56. 

0ADATA0157 

2. 

.5 

54. 

4. 

.685 

62. 

DATA0158 

8. 

.76 

70. 

16. 

.765 

80. 

0ATAO1S9 

430. 

.095 

12 

8.519 

0. 


0A0ATA0160 

1. 

.855 


2. 

• 85 


0ATA9161 

4. 

.832 


8. 

.eii 


0A1A0162 

16. 

.804 


32. 

.798 


DATA0163 

64. 

.79 





DATA0164 

440. 

.095 

12 

8.515 

0. 


DADATA0165 

1. 

.832 


2. 

.836 


DATA0166 

4. 

.82 1 


8. 

.817 


0ATA0167 

16. 

.813 


32. 

.812 


DATA0168 

64. 

.812 





0ATA0169 

450. 

.104 

12 

8.531 

0. 


DADATA01 70 

1. 

.924 


2. 

.895 


OATAOl 71 

4. 

.842 


8. 

.805 


DAT A0172 

16. 

.784 


32. 

.763 


0ATA0173 

64. 

.75 





DATA0174 

460. 

. 168 

12 

8.531 

0. 


DATA0175 

1. 

.94 7 


2. 

.905 


0ATA0176 

4 . 

.842 


8. 

.795 


DAT A0177 

16. 

.768 


32. 

.74? 


DATA0178 

64. 

.737 





OATAOl 79 

470. 

.25 

12 

9.43 

C. 


DA0ATA0180 
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..*••••••* 


•*••«•••• 


..6.. ...... .6 

• 5 

• 858 


I. 

• 922 


0ATA0181 

2* 

• 89 


4. 

• 856 


0ATA0182 

8. 

.83 


16. 

• 813 


0ATA0183 

32. 

.8 


64. 

• 19 


DATA0184 

480. 

.25 

12 

9.43 

0. 


0ADATA0185 

•5 

• 917 


1. 

.878 


0ATA0186 

2. 

• 852 


4. 

• 83 


DATA018? 

8. 

.813 


16. 

• 8- 


DATA0188 

32. 

.78? 


64. 

.18 

r 

0ATAO189 

*90. 

.255 

12 

9.465 

0. 


DADATA0190 

.5 

.6 


1. 

.976 


0ATA0191 

2. 

.896 


4. 

• 853 


0ATA0192 

8. 

.781 


16. 

• 1S1 


DAT AO 193 

32. 

.73 


64. 

.717 

. 1 — 

0ATA0194 

500. 

.26 

12 

9.44 

0. 


0ADATA0195 

• S 

.665 


1. 

.958 


DAT AO 196 

2. 

.905 


4. 

.816 


0ATA0197 

8. 

.79 


16. 

• 758 

i 

DATA0198 

32. 

.737 


64. 

• 721 


DATA0199 

510. 

. 38 

12 

9.4 

0. 


DAT AO 200 

• 5 

.77 


l. 

• 958 


DATA0201 

2. 

.915 


4. 

• 833 


DATA0202 

8. 

.768 


16. 

.135 


DATA0203 

32. 

.71 


64. 

• 69 

- 

DATA0204 

520. 

.623 

12 

10.219 

0. 

* 

DA0ATA0205 

.25 

.215 


• 5 

.85 


0ATA0206 

. 1. 

.974 


2. 

.926 


0ATA020? 

4. 

.833 


8. 

.773 


DATA0208 

16. 

.716 


32. 

.667 


0ATA0209 

64. 

• 666 





0ATA0210 

53.9215 

2.668 

1 

6.66 

0. 

0. 

0AOATA02U 

1. 

.36 

48. 

2. 

.49 

33. 

DATA0212 

4. 

.51 

32. 

8. 

.495 

35. 

DATA0213 

16. 

.44 

38. 




0ATA0214 

541. 

1.3097 

1 

6.82 

0. 

0. 

DADATAC21S 

1. 

.22 

60. 

2. 

.62 

78. 

DATA0216 

4. 

.62 

85. 

8. 

.62 

84. 

DATA021 7 

16. 

.62 

84. 




DATA0218 

55 1. 

2.28 

1 

6.56 

0. 

0. 

DADATA02 19 

I. 

.66 

48. 

2. 

.835 

48. 

DATA0220 

4. 

.85 

49. 

8. 

.81 

5C. 

DATA0221 

16. 

.7 

50. 




DATA0222 

56.643 

.958 

1 

7.^28 

0. 

85. 

DADATA0223 

.5 

.32 

85. 

1. 

.67 

73. 

0ATA0224 

2. 

.74 

70. 

4. 

.73 

68 . 

DATA0225 

8. 

.71 

67. 

16. 

.11 

67. 

DATA0226 

57 i. 

1.679 

1 

6.58 

0. 

58. 

0ADATA0227 

4 . « 

.52 

58. 

2. 

63 

38. 

0 ATA0228 

4. 

• 66 

35. 

8. 

.66 

35. 

DAT A0229 

16. 

.66 

35. 




0ATA0230 

581.15 

1.3 

1 

. 

CD 

0. 

50. 

DADATA0231 

1. 

.64 

45. 

2. 

.86 

38. 

DATA0232 

4. 

• 913 

38. 

8. 

.915 

38. 

0ATA0233 

16. 

.91 

38. 




0ATA0234 

59.525 

.99 

0 

6.96 

0. 


DA0ATA0235 

1. 

.12 

0. 

2- 

.66 

46. 

DATA0236 

4. 

.8* 

56. 

8. 

.915 

65. 

DATA0237 

16. 

• 94 

72. 




0ATA0238 

60.525 

.99 

1 

6.92 

0. 

80. 

DA0ATA0239 

l. 

• 14 

80. 

2. 

.55 

ec. 

DATA0240 
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* 




. ...... 



4. 

.64 

55. 

8. 

.68 

60. 

0ATA0241 

16. 

.68 

78. 




CATA0242 

61.525 

.99 

0 

6.92 

0. 

80. 

DA0ATA0243 

1. 

.18 

80. 

2. 

• 58 

ec. 

DATA0244 

4. 

.67 

58. 

8. 

.69 

66. 

0ATA0245 

16. 

.7 

90. 




OATA0246 

62.525 

.99 

0 

6.94 

0. 

80. 

DADATA0247 

1. 

.12 

80. 

2* 

.55 

ec. 

0ATA0248 

4. 

• 65 

63. 

8. 

• 6 €5 

68 . 

0ATA0249 

16. 

.7 

80. 




0ATA0250 

63.395 

.4582 

0 

6.96 

0. 

0. 

DAOATA0251 

1. 

.2 

1C. 

2. 

.75 

5C. 

DATA0252 

4 . 

.87 

62 . 

8 . 

.95 

70. 

0ATA0253 

16. 

.93 

72. 




0ATA0254 

64.395 

.4582 

C 

6.8 

0. 

82. 

DA0AFA0255 

l. 

.24 * 

82. 

2. 

.72 

78. 

DATAQ256 

A • 

.87 

74. 

8. 

.5 

74. 

0ATA0257 

16. 

.91 

70. 
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4.1 

4.6 

DIFFQC90 

l. 1 

1.2 

1.3 

1.4 

1.5 

1.7 

1.9 

DIFF0G91 

2.04 

2.25 

2.6 

3.08 

3.48 

4.7 

5.0 

DIFF0092 

l.l 

1.2 

1.3 

1.4 

1.48 

1.7 

2.04 

0 IFF0093 

2.18 

2.45 

2.8 

3.32 

3.6 

5.2 

6.C 

0 IFFC094 

l.l 

1.2 

1.3 

1.4 

1.53 

1.7 

2.03 

DIFF0095 

2. 32 

2.6 

3.0 

3.6 

4. 1 

5.6 

6.5 

0IFF0096 

l.l 

1.2 

1.3 

1.4 

1.42 

1.6 

2.07 

DIFF0097 

2.43 

2.75 

3.2 

3.9 

4.5 

6.3 

7.C 

DIFF0098 

1. 1 

1.2 

1.3 

1.4 

1.52 

1.7 

2.1 

0 JFF0099 

2.55 

3.05 

3.55 

4.0 

4.5 

5.2 

6.0 

DIFFOIOO 

l.l 

1.2 

1.3 

1.4 

1.5 

1.74 

2.3 

DIFFOIOI 

2.8 

3.55 

4.0 

4.8 

5.4 

6.5 

7.5 

D IFF0102 

1.0 

2.0 

3.C 

4.0 

5.C 

6.0 

7.0 

DIFF0103 

8.0 

9.0 

10.0 

12. C 

15.0 



DIFF0104 



I 


YOUR CARO TOTAL IS 


541 



